v1.0.9.36 fixed the generation of warning msg about the length of Qobs in plot.OutputsModel

4e077076 · unknown · 0b6a9ae9 · 4e077076 · 4e077076
Commit 4e077076 authored 7 years ago by unknown
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.35
+Version: 1.0.9.36
 Date: 2017-09-05
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl")),

--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -20,7 +20,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
        if (sum(is.na(Qobs)) != length(Qobs)) {
          BOOL_Qobs <- TRUE
        }
-      } else {
+      } else if (inherits(OutputsModel, "GR")) {
        warning("Incorrect length of Qobs. Time series of observed flow not drawn.")
      }
  BOOL_Snow <- FALSE;