data-raw/catmunalias.R

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

# Creates databases of aliases of Catatalan municipalies
# Uses catamunwp and catmuneemex

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

source("R/affixes.R")
source("R/articles.R")

createAliasFromEmex <- function(catmunemex) {
  mun <- fromSuffixToPrefix(catmunemex$mun, suffix_lowercase, prefix_capitalised)
  mun <- fromSuffixToPrefix(mun, suffix_capitalised, prefix_capitalised)
  alias_cp <- mun
  alias_ls <- fromPrefixToSuffix(mun, prefix_capitalised, suffix_lowercase)
  alias_cs <- fromPrefixToSuffix(mun, prefix_capitalised, suffix_capitalised)
  alias_lp <- fromSuffixToPrefix(alias_ls, suffix_lowercase, prefix_lowercase)

  catmunalias <- tibble(
    alias = c(alias_cp, alias_cs, alias_lp, alias_ls),
    mun = c(mun, mun, mun, mun)
  ) %>%
    distinct() %>%
    arrange(alias)
  return(catmunalias)
}

appendAliasesFromWikipedia <- function(catmunaliasfromemex) {
  catmunaliasfromemexandwp <- catmunaliasfromemex %>%
    add_row(alias = "Campmany", mun = "Capmany") %>%
    add_row(alias = "Campmany", mun = "Capmany") %>%
    add_row(alias = "Navars", mun = "Navàs")
}

plan <- drake_plan(
  catmunemex = readRDS(file_in("data-raw/catmunemex.Rds")),
  catmunwp = readRDS(file_in("data-raw/catmunwp.Rds")),
  catmunaliasfromemex = createAliasFromEmex(catmunemex),
  catmunalias = catmunaliasfromemex,
  catmunalias_save_data = save(catmunalias, version = 3, file = file_out("data/catmunalias.rda"))
)

make(plan)