data-raw/equivalence_RLS.R

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

library(data.table)
library(usethis)

### Source : V_TERRI_RLS_ANC
### Pour chaque RLS, indication de son ancien code s'il y a eu un changement.
### ATTENTION : certains codes sont à la fois dans les nouveaux et les anciens
### codes. Donc, il n'est pas possible de les convertir. C'est le cas pour
### les codes "0611" "0612" "1611" "1612".

DT <- fread("inst/extdata/Convertir-RLS.csv", colClasses = "character")[, c(2:6)]
DT <- DT[
  , .(RLS_actuel = LGEO_COD_TERRI_RLS_ACTL,
      RLS_ancien = LGEO_COD_TERRI_RLS_ANC)
]

# Supprimer les codes qui sont dans les 2 colonnes
no_use_codes <- DT$RLS_actuel[DT$RLS_actuel %chin% DT$RLS_ancien]
no_use_codes <- c(no_use_codes, DT$RLS_ancien[DT$RLS_ancien %chin% DT$RLS_actuel])
rls_equi_no_use <- DT[RLS_actuel %chin% no_use_codes | RLS_ancien %chin% no_use_codes]
rls_equi <- DT[!RLS_actuel %chin% no_use_codes & !RLS_ancien %chin% no_use_codes]

use_data(rls_equi, rls_equi_no_use, overwrite = TRUE)