municipio <- "Hernandarias"
folder_path <- paste0("data-raw/planillas_priorizacion/", municipio)
files <- list.files(folder_path, full.names = TRUE)
#Nombres(aƱos) para la lista
anhos <- sub(pattern = "\\..*$", replacement = "", basename(files))
priorizacion_Hernandarias <- purrr::map(files, ~ leer_planilla(.))
priorizacion_Hernandarias <- purrr::set_names(priorizacion_Hernandarias, anhos)
nombre <- paste0("data-raw/planillas_priorizacion/", municipio, ".rds")
readr::write_rds(x = priorizacion_Hernandarias, path = nombre)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.