data-raw/carte_CLSC.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 centres locaux de services communautaires (CLSC)
library(sf)
library(dplyr)
library(usethis)

dir <- paste0(getwd(),"/inst/extdata/FichiersCartographiques/")
initial_files <- list.files(dir)
unzip(
  paste0(dir,"TERRITOIRES_CLSC_2019-11-20.zip"),
  exdir = "inst/extdata/FichiersCartographiques",  # répertoire d'extraction
)
after_files <- list.files(dir)
carte_CLSC <- st_read(paste0(dir,"Territoires_CLSC_2019.shp"), stringsAsFactors = FALSE)
carte_CLSC <- carte_CLSC %>%
  mutate(CLSC_code = as.integer(CLSC_code),
         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_CLSC, overwrite = T)
unlink(paste0(dir,after_files[!after_files %in% initial_files]), TRUE)  # supprimer les fichiers extrait