fix(seinebasin): error in vignettes

Refs #48

vignettes/seinebasin/V04_Open-loop_influenced_flow.Rmd

@@ -243,6 +243,10 @@ ParamMichel$STDIZ_04 <- c(1, ParamMichel$STDIZ_04)
 ### Run simulation
 
 ```{r RunModel}
+RunOptions <- CreateRunOptions(
+  InputsModel = InputsModel2,
+  IndPeriod_Run = IndPeriod_Run
+)
 OutputsModels2 <- RunModel(
   InputsModel2,
   RunOptions = RunOptions,

vignettes/seinebasin/V05_Open-loop_influenced_flow_calibration.Rmd

@@ -45,7 +45,7 @@ Generate `GRiwrmInputsModel` object
 ```{r CreateInputsModel}
 library(seinebasin)
 data(QOBS)
-iEnd <-which(DatesR == as.POSIXct("2008-07-31"))
+iEnd <-which(DatesR == as.POSIXct("2008-07-31", tz = "UTC"))
 
 data(Qreservoirs)
 Qobs3 <- cbind(Qobs, Qreservoirs[1:iEnd,])

vignettes/seinebasin/V05b_Open-loop_influenced_flow_calibration_GR6J.Rmd

@@ -46,7 +46,7 @@ Generate `GRiwrmInputsModel` object
 ```{r CreateInputsModel}
 library(seinebasin)
 data(QOBS)
-iEnd <-which(DatesR == as.POSIXct("2008-07-31"))
+iEnd <-which(DatesR == as.POSIXct("2008-07-31", tz = "UTC"))
 
 data(Qreservoirs)
 Qobs3 <- cbind(Qobs, Qreservoirs[1:iEnd,])