R/swc_get_cantons.R

In cynkra/munch: Functions for working with the historicized list of communes of Switzerland

swc_get_cantons <- function() {
  as_tibble(readr::read_csv(csv_file("mut/canton"), col_types = "iccD", lazy = FALSE))
}

csv_file <- function(name) {
  system.file("csv", paste0(name, ".csv"), package = "munch")
}

new_csv_file <- function(...) {
  paste0(file.path("inst/csv", ...), ".csv")
}