Sauvegarde de l'exhaustivité au moment de la cloture

donnees.R

@@ -130,4 +130,17 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>%
             pole_libelle = last(pole_libelle)) %>%
   mutate(mois_sortie = month(date_sortie)) -> gam
 
-save(Ovalide, OvalideP, annee, mois, rum, rss, gam, date, file = "donnees.Rdata")
+if (mois == 1)
+{
+  exhau <- data.frame(mois = 1:12, rss = NA, manq = NA)
+} else
+{
+  load("exhau.Rdata")
+}
+
+exhau[exhau$mois == mois,]$rss <- rss %>% filter(annee_sortie == annee) %>% nrow
+exhau[exhau$mois == mois,]$manq <- gam %>% nrow
+
+save(exhau, file = "exhau.Rdata")
+
+save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, date, file = "donnees.Rdata")