fitted_model <-
linear_reg() %>%
set_engine("lm", model = TRUE) %>%
fit(mpg ~ ., data = mtcars)
# In this call, note that `data` is not `mtcars` and the `model = ~TRUE`
# indicates that the `model` argument is an `rlang` quosure.
fitted_model$fit$call
# All better:
repair_call(fitted_model, mtcars)$fit$call
Run the code above in your browser using DataLab