source(here::here("dictionary/utilities.R"))
tmp <- read.csv(here("data/custom_dictionaries/data_ch_cantons.csv")) |>
unique() |>
rename(canton.abb = abbreviation)
attr(tmp, "origin_regex") <- "canton.name.regex"
attr(tmp, "valid_origin") <- colnames(tmp)
saveRDS(tmp, here("data/custom_dictionaries/data_ch_cantons.rds"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.