Types sûrs pour la lecture de GHM

app.R

@@ -9,12 +9,13 @@ library(stringr)
 library(lubridate)
 
 # Lecture fichier de GHM ----
-read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>%
+read_csv("ghm.csv", col_types = cols(.default = col_character())) %>%
   `names<-`(c("IPP", "IEP", "Age", "Sexe", "Codepos", "GHM", "date_entree", "date_sortie")) %>%
   mutate(date_entree = date_entree %>% as.Date(format = "%Y/%m/%d"),
          date_sortie = date_sortie %>% as.Date(format = "%Y/%m/%d"),
          DS = as.numeric(date_sortie - date_entree),
-         Sexe = Sexe %>% factor(labels = c("Homme", "Femme"))) -> GHM
+         Age = as.numeric(Age),
+         Sexe = Sexe %>% factor(levels = c("1", "2"), labels = c("Homme", "Femme"))) -> GHM
 
 # Lecture labels racines de GHM et garder celles existantes ----
 read_csv("racinesGHM.csv") %>%