so_ii_montpellier.R

# code to prepare `so_ii_onrn` dataset goes here

so_ii_montpellier = sf::st_read(
    geau::current_version("data-common/so-ii/montpellier", "shp")
)
so_ii_montpellier = sf::st_transform(
    so_ii_montpellier,
    crs = sf::st_crs(geau::so_ii_limit)
)
so_ii_montpellier = so_ii_montpellier[c("QUARTIER","LIBSQUART")]
names(so_ii_montpellier) = c("district_group", "district_name", "geometry")
Encoding(so_ii_montpellier[["district_name"]]) = "UTF-8"

# updating datasets

# actual = setwd(file.path(system.file(package = "geau"), ".."))
actual = setwd("geau")
usethis::use_data(so_ii_montpellier, internal = FALSE, overwrite = TRUE)
setwd(actual)