data-raw/carte_RLS.R

In guiboucher/INESSS-inesss.datasets: Datasets réseau santé

### Site : https://www.msss.gouv.qc.ca/professionnels/informations-geographiques-et-de-population/information-geographique/
### Section : Fichiers cartographiques, Fichier cartographique des limites territoriales des réseaux locaux de services (RLS)
library(sf)
library(dplyr)
library(usethis)

dir <- paste0(getwd(),"/inst/extdata/FichiersCartographiques/")
initial_files <- list.files(dir)
unzip(
  paste0(dir,"TERRITOIRES_RLS_2019-11-20.zip"),
  exdir = "inst/extdata/FichiersCartographiques",  # répertoire d'extraction
)
after_files <- list.files(dir)
carte_RLS <- st_read(paste0(dir,"Territoires_RLS_2019.shp"), stringsAsFactors = FALSE)
carte_RLS <- carte_RLS %>%
  mutate(RLS_code = as.integer(RLS_code),
         RTS_code = as.integer(RTS_code),
         RSS_code = as.integer(RSS_code),
         RUIS_code = as.integer(RUIS_code))
use_data(carte_RLS, overwrite = T)
unlink(paste0(dir,after_files[!after_files %in% initial_files]), TRUE)  # supprimer les fichiers extrait