library(add2evaluation)
fit <- 
  mtcars %>% 
  lm(disp ~ mpg, data = .)
library(zeallot)
c(model, coefficients, observations) %<-% groom_model(fit)