data-raw/EquiTerritoires.R

In INESSSQC/INESSS: Useful functions

library(data.table)
EquiTerritoires <- as.data.table(read.csv2("U:/GRP/A/5/A/VPSGC/AP/00-Projets/01-Documentation générale/Infos sur Banques de données/Équivalence des territoires 2014-2015/Territoires_1415.csv"))

# Sélection des colonnes
EquiTerritoires <- EquiTerritoires[
  , .(RLS15 = Code.RLS.2015,
      RLS14 = Code.RLS.2014,
      RSS15 = Code.RSS.2015,
      RSS14 = Code.RSS.2014,
      CLSC15 = Code.CLSC.2015,
      CLSC14 = Code.CLSC.2014,
      RUIS15 = Code.RUIS.2015,
      RUIS14 = Code.RUIS.2014,
      RTS15 = Code.RTS.2015)
][
  1:175  # supprimer ligne NA (176)
]
EquiTerritoires <- unique(EquiTerritoires)
setorder(EquiTerritoires, RLS15)