data-raw/carte_RTS.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 des réseaux territoriaux de services (RTS)
library(sf)
library(dplyr)
library(usethis)

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