analyses/rei/prepare_cis_data.R

# cis <- vilaweb::cis
# cis <- haven::as_factor(cis)
# # Adjust names in new ceo
# for(j in 1:ncol(cis)){
#   message(j)
#   col_name <- names(cis)[j]
#   this_name <- attr(eval(parse(text = paste0('cis$`', col_name, '`'))), 'label')
#   names(cis)[j] <- this_name
# }

cis_list <- vilaweb::cis_list
joebrew/vilaweb documentation built on Sept. 11, 2020, 3:42 a.m.