I'd like to access/print regular summary output for a model I've looped with purrr::map, but I'm getting an error: "Error: Input must be list of vectors". Any suggestions?

library(mgcv)

library(dplyr)

library(purrr)

Orange %>%

group_by(Tree) %>%

nest() %>%

mutate(m1_bam = map(data, ~ bam(formula = circumference ~ 1 + age, family = gaussian, data = .x)),

m1_smry = map(m1_bam, ~ summary(.x)),

m1_beta = map(m1_smry, ~ .x$p.table)

) %>%

unnest(m1_smry)

#unnest(m1_beta)