feat(plot.OutputsModelReservoir): add argument checks

Refs #90

R/RunModel_Reservoir.R

@@ -2,7 +2,7 @@
 #'
 #' The reservoir model is a model combining a lag model and the calculation of
 #' the water storage time series according to the released flow time series
-#' from the `Qinf` parameter of [CreateInputsModel.GRiwrm].
+#' from the `Qrelease` parameter of [CreateInputsModel.GRiwrm].
 #'
 #' @details
 #' The simulated flow corresponds to the released flow except when the reservoir

R/plot.OutputsModelReservoir.R

@@ -9,6 +9,14 @@
 #'
 #' @example man-examples/RunModel_Reservoir.R
 plot.OutputsModelReservoir <- function(x, Qobs = NULL, ...) {
+
+  # Argument checks
+  if (!is.null(Qobs)) {
+    stopifnot(is.numeric(Qobs),
+              length(Qobs) == length(x$Qsim_m3))
+
+  }
+
   oldpar <- par(mfrow=c(2,1),
                 mar = c(2,3.3,1.2,0.5),
                 mgp = c(2,1,0))

man-examples/RunModel_Reservoir.R

@@ -86,4 +86,4 @@ plot(OutputsModel, Qobs = Qobs)
 # N.B. "Observed releases" should be considered as "Target releases" here
 
 # The plot for the reservoir can also be plotted alone
-plot(OutputsModel$Reservoir)
+plot(OutputsModel$Reservoir, Qobs = Qobs[, "Reservoir"])