Ne pas supprimer exhau_pims après traitement

donnees.R

@@ -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")