Correction pour nombre de RSS manquants

donnees.R

@@ -28,7 +28,7 @@ getOvalide(CHUuser, CHUpass, annee, mois)
 print(str_c("3/9 - Téléchargement du tableau de", mois, annee - 1, sep = " "))
 getOvalide(CHUuser, CHUpass, annee - 1, mois)
 
-# Extraction des données des fichiers ePMSI
+# Extraction des données des fichiers ePMSI ----
 print("4/9 - Extraction des tableaux ePMSI")
 read.csv2("listOvalide.csv") %>%
 {
@@ -119,7 +119,7 @@ exhau_pims %<>%
   filter(month(Sortie) <= mois)
 
 dbConnect(MySQL(), host = "localhost", dbname = "pmsi_dim", user = user, password = password) %>%
-  dbWriteTable("exhaustivite", data.frame(annee = annee, mois = mois, nb_rss_tot = exhau_pims %>% distinct(RSS, .keep_all = T) %>% nrow, nb_rss_manq = exhau_pims %>% distinct(RSS, .keep_all = T) %>% filter(is.na(DP)) %>% nrow), row.names = F, append = T)
+  dbWriteTable("exhaustivite", data.frame(annee = annee, mois = mois, nb_rss_tot = exhau_pims %>% distinct(RSS, .keep_all = T) %>% nrow, nb_rss_manq = exhau_pims %>% filter(is.na(DP)) %>% distinct(RSS) %>% nrow), row.names = F, append = T)
 
 an <- annee