data-raw/catmunemex.R

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

# Catalan municipalities from EMEX database
#
# Retrieved from https://www.idescat.cat/dev/api/emex/
# License https://www.idescat.cat/dev/api/#cdu

library(httr)
library(xml2)

url <- "https://api.idescat.cat/emex/v1/nodes.xml?lang=en"

parse <- function(xml_text) {
  xml <- read_xml(xml_text)
  mun <- xml_text(xml_find_all(xml, "//v[@scheme='mun']/text()")) %>% sort()
  catmunemex <- tibble(mun = mun)

  return(catmunemex)
}

plan <- drake_plan(
  catmunemex_xml_text = content(RETRY("GET", url), "text"),
  catmunemex = parse(catmunemex_xml_text),
  catmunemex_save_data_raw = saveRDS(catmunemex, file = file_out("data-raw/catmunemex.Rds"))
)

make(plan)