data-raw/departements.R

library(sf)

departements <- st_read( "data-raw/map/departements-20140306-50m.shp", stringsAsFactors = FALSE ) %>%
  select(-nuts3,-wikipedia) %>%
  mutate_at( vars(nom,code_insee), as.character )

devtools::use_data( departements, overwrite = TRUE )
ThinkRstat/prenoms documentation built on Sept. 15, 2023, 2:48 a.m.