Exhaustivité depuis web100T

donnees.R

@@ -158,6 +158,15 @@ 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")
+# Données extraites de web100T pour l'exhaustivité par service
+exhau_pims <- read_csv("exhau_pims.csv")
+names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie")
+
+exhau_pims %<>%
+  mutate(Sortie = Sortie %>% as.Date) %>%
+  filter(month(Sortie) <= mois)
+unlink("exhau_pims.csv")
+
+save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, exhau_pims, date, file = "donnees.Rdata")
 
 write.csv2(gam, "gam.csv")