why does map_if() not work within a list

Question

Please help me

1) Why does map_if not work within a list
2) Is there a way to make it work
3) If not, what are the alternatives

Thanks in advance.

library(dplyr) 
library(purrr) 

cyl <- split(mtcars, mtcars$cyl) 

# This works
map_if(mtcars, is.numeric, mean) 

# This does not work 
map_if(cyl, is.numeric, mean)

Answer 1

Because you need to map to one lever lower, the columns are at level 2. So you can do:

map(cyl, ~map_if(., is.numeric, mean))

Or:

map(cyl, map_if, is.numeric, mean)

Without the if one could do

map_depth(cyl, 2, mean)