Atualizando um modelo de regressão linear com update e purrr

Eu quero atualizar umlm-model usando oupdate-função dentro de ummap-call, mas isso gera o seguinte erro:

mtcars %>% group_by(cyl) %>% 
 nest() %>% 
 mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)), 
        lm2 = map(lm1, ~update(object = .x, formula = .~ . + hp)))

Error in mutate_impl(.data, dots) : 
  Evaluation error: cannot coerce class ""lm"" to a data.frame.

Alguém pode me ajudar com esse problema? Estou confuso sobre esse erro, porque p. isso funciona totalmente bem:

mtcars %>% group_by(cyl) %>% 
  nest() %>% 
  mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)), 
         lm2 = map_dbl(lm1, ~coefficients(.x)[1]))

questionAnswers(1)

yourAnswerToTheQuestion