df1 <- data.frame(
a=1:3, b=1:3, c=1:3
)
df2 <- data.frame(
a=1:3, b=1:3, c=as.character(1:3),
stringsAsFactors = FALSE
)
(dfs_to_look_at <- list(df1,df2))
library(purrr)
map_dfr(dfs_to_look_at,
~map_chr(.,typeof))
# A tibble: 2 x 3
a b c
<chr> <chr> <chr>
1 integer integer integer
2 integer integer character