fix: correct 'plot.OutputsModel' zoom when 'IndPeriod_Plot' does not start to 1

Refs: #192

fix: correct 'plot.OutputsModel' zoom when 'IndPeriod_Plot' does not start to 1
Refs: #192
32a3c9e0 · Delaigue Olivier · 90311702 · 32a3c9e0
Commit 32a3c9e0 authored 6 months ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 2 deletions
+3 -2
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -19,10 +19,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
  ## index time series
  if (!is.null(IndPeriod_Plot)) {
-    if (length(IndPeriod_Plot) == 0) {
+    if (length(IndPeriod_Plot) == 0 || any(IndPeriod_Plot <= 0)) {
      IndPeriod_Plot <- seq_along(OutputsModel$DatesR)
+      warning('IndPeriod_Plot')
    }
-    IndPeriod_Plot <- seq_along(IndPeriod_Plot)
+    # IndPeriod_Plot <- seq_along(IndPeriod_Plot)
    OutputsModel <- .IndexOutputsModel(OutputsModel, IndPeriod_Plot)
    Qobs <- Qobs[IndPeriod_Plot]
  } else {