From 2063108321b6d9e67cfdf9d97bbff5608730bce4 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Wed, 1 Jun 2016 11:25:36 +0200
Subject: [PATCH] =?UTF-8?q?Exhaustivit=C3=A9=20depuis=20web100T?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 donnees.R | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/donnees.R b/donnees.R
index f0da2e1..c8e0483 100644
--- a/donnees.R
+++ b/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")