data_processing/03_federal_electoral_districts.R

In pachadotdev/canadamaps: Maps of the Political and Administrative Divisions of Canada

# federal electoral district ----

federal_electoral_districts_rda <- "data/federal_electoral_districts.rda"

if (!file.exists(federal_electoral_districts_rda)) {
  federal_electoral_districts <- tidy_sf("data_shp/federal_electoral_districts/lfed000b16a_e.shp")

  federal_electoral_districts <- federal_electoral_districts %>%
    mutate(feduid = as.integer(feduid), pruid = as.integer(pruid))

  federal_electoral_districts <- as_tibble(federal_electoral_districts)

  federal_electoral_districts <- federal_electoral_districts %>%
    select(-c(fedename, fedfname))

  federal_electoral_districts <- federal_electoral_districts %>%
    st_as_sf() %>%
    st_transform("NAD83") %>%
    as_tibble()

  use_data(federal_electoral_districts, compress = "xz", overwrite = T)
} else {
  load(federal_electoral_districts_rda)
}