|
|
@@ -1,10 +1,7 @@ |
|
|
|
source("functionsOvalide.R") |
|
|
|
library(lubridate) |
|
|
|
|
|
|
|
# Date pour le rapport |
|
|
|
date <- format.Date(today(),format="%d/%m/%Y") |
|
|
|
|
|
|
|
# Récupération des arguments pour utilisation non interactive |
|
|
|
# Récupération des arguments pour utilisation non interactive ---- |
|
|
|
arguments <- commandArgs() |
|
|
|
if (length(arguments) != 13) |
|
|
|
{ |
|
|
@@ -120,4 +117,4 @@ exhau_pims %<>% |
|
|
|
mutate(Sortie = Sortie %>% as.Date) %>% |
|
|
|
filter(month(Sortie) <= mois) |
|
|
|
|
|
|
|
save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, exhau_pims, date, file = "donnees.Rdata") |
|
|
|
save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, exhau_pims, file = "donnees.Rdata") |