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égions sociosanitaires (RSS)
library(sf)
library(dplyr)
library(usethis)

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