Okay..sorry!
IMATData %>%
pivot_longer(-c("category", "gender","Tissue","age", "fatmass","weight_kg", "ffm_kg",
"height_in","bmi", "GIR", "fastingGlucose", "glucose2h")) %>%
group_split(name) %>%
set_names(nm = map(., ~ first(.x$name))) %>%
map(~ tidy(lm(IMATData$age ~ value, data = .))) %>%
map(~ filter(., p.value < 0.05)) %>%
bind_rows(.id = "var")
IMATData %>%
pivot_longer(-c("category", "gender","Tissue","age", "fatmass","weight_kg", "ffm_kg",
"height_in","bmi", "GIR", "fastingGlucose", "glucose2h")) %>%
group_split(name) %>%
set_names(nm = map(., ~ first(.x$name))) %>%
map(~ tidy(lm(IMATData$age ~ value-1, data = .))) %>%
map(~ filter(., p.value < 0.05)) %>%
bind_rows(.id = "var")