|
|
|
@@ -165,7 +165,6 @@ 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") |
|
|
|
|
|
|
|
|
