data-raw/data_priorizacion_completo.R

archivos <- list.files("data-raw/planillas_priorizacion/", pattern = "rds", full.names = TRUE)
nombres_municipios <- list.files("data-raw/planillas_priorizacion/", pattern = "rds") %>% 
                      stringr::str_remove(".rds")

priorizacion_fonacide <- purrr::map(archivos, readr::read_rds) %>% 
                         purrr::set_names(nombres_municipios)

usethis::use_data(priorizacion_fonacide, name = priorizacion_fonacide, overwrite = TRUE)
HernanGaleano/rfonacide documentation built on March 24, 2020, 5:28 p.m.