data-raw/carte_RUIS.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 universitaires intégrés de santé (RUIS)
library(sf)
library(dplyr)
library(usethis)

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