end day ror

rte-antares-rpackage · May 14, 2018 · 4d334f2 · 4d334f2
1 parent 044e81e
commit 4d334f2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/create_wm_ror.R b/R/create_wm_ror.R
@@ -37,6 +37,9 @@ create_wm_ror <- function(data, start = NULL, startday = "samedi", sort_areas =
 
   #On cherche le jour précedent a notre date de prevision
   endday <- as.numeric(format(start, "%u")) - 1
+  if (endday < 1) {
+    endday <- 7
+  }
 
   #on recupere les dates de debut et
   date_ini_fil <- get_previous(startday, date = start)