data-raw/catmunwp.R

In jmones/catmunalias: Provides a Dataset for Aliases of Catalan Municipalities

# List of municipalities in Wikipedia
# Retrieved from https://ca.wikipedia.org/wiki/Llista_de_municipis_de_Catalunya
# License VP:CC-BY-SA https://ca.wikipedia.org/wiki/Viquip%C3%A8dia:Text_de_la_llic%C3%A8ncia_de_Creative_Commons_Reconeixement-Compartir_Igual_3.0_No_adaptada


library(drake)
library(dplyr)
library(janitor)
library(rvest)


url <- "https://ca.wikipedia.org/wiki/Llista_de_municipis_de_Catalunya"

prepare <- function(raw) {
  mun <- raw$Municipi %>%
    trimws() %>%
    sort()
  prepared <- tibble(mun = mun)
  return(prepared)
}

plan <- drake_plan(
  catmunwp_raw = read_html(url) %>% html_node("table.wikitable") %>% html_table(),
  catmunwp = prepare(catmunwp_raw),
  catmunwp_save_data_raw = saveRDS(catmunwp, file = file_out("data-raw/catmunwp.Rds"))
)

make(plan)