Commit 4e077076 authored by unknown's avatar unknown
Browse files

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

Showing with 2 additions and 2 deletions
+2 -2
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.35 Version: 1.0.9.36
Date: 2017-09-05 Date: 2017-09-05
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")), person("Laurent", "Coron", role = c("aut", "trl")),
......
...@@ -20,7 +20,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = ...@@ -20,7 +20,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if (sum(is.na(Qobs)) != length(Qobs)) { if (sum(is.na(Qobs)) != length(Qobs)) {
BOOL_Qobs <- TRUE BOOL_Qobs <- TRUE
} }
} else { } else if (inherits(OutputsModel, "GR")) {
warning("Incorrect length of Qobs. Time series of observed flow not drawn.") warning("Incorrect length of Qobs. Time series of observed flow not drawn.")
} }
BOOL_Snow <- FALSE; BOOL_Snow <- FALSE;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment