country_model <- function(df) {
  lm(lifeExp ~ year, data = df)
}

apminder.model  <- gapminder.nested %>%
 mutate(model = map(data, country_model),
        coef = map(model, broom::tidy))

model = map(data, ~ country_model)

## Evaluation error: no recognized region names