![]() f = ~ mutate_all(.x, as_factor) %>% mutate_all(as.character)) ) dat_s_flat % #mutate(export = map(.x = subset. ![]() f = ~ info(.x))) %>% dplyr :: select(country, codebook) %>% unnest( cols = c(codebook)) d1 % group_by(var_lab_make) %>% count() vars % mutate( subset0 = map(. f = ~ read_stata(.))) %>% filter(type = "PR") # Function = info % dplyr :: select( -var_lab1) return(a) } # Function = # Variables summary/matches d0 % mutate( codebook = map(. Rm( list = ls()) library(purrr) library(tidyverse) library(haven) library(janitor) library(labelled) library(magrittr) files % mutate( country = str_sub(filename, -12, - 11), type = str_sub(filename, -10, - 9), file_contents = map(.
0 Comments
Leave a Reply. |