Lecture labels racines GHM

app.R

@@ -15,6 +15,15 @@ read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>%
          DS = as.numeric(date_sortie - date_entree),
          Sexe = Sexe %>% factor(labels = c("Homme", "Femme"))) -> GHM
 
+# Lecture labels racines de GHM et garder celles existantes ----
+read_csv("racinesGHM.csv") %>%
+  mutate(codlib = str_c(racine, " - ", libelle)) -> racines
+racine <- racines$racine
+names(racine) <- racines$codlib
+
+racine <- racine[racine %in% GHM$GHM]
+rm(racines)
+
 read_csv2("insee.csv") %>%
   select(Codepos, insee = INSEE) %>%
 # filter(Codepos %in% GHM$CP),