From cc51a013eaec750e1fabed96adae0ab36cb7a5af Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 18 Mar 2019 12:08:27 +0100
Subject: [PATCH] v1.2.9.17 BUG: no more warning when Qobs = NULL in
plot.OutputsModel
---
DESCRIPTION | 2 +-
NEWS.rmd | 2 +-
R/plot.OutputsModel.R | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 576b8e98..3d61cb7d 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.9.16
+Version: 1.2.9.17
Date: 2019-03-18
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index e0c999a8..29f7061a 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:
-### 1.2.9.16 Release Notes (2019-03-18)
+### 1.2.9.17 Release Notes (2019-03-18)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index fddf412e..06fe4b3b 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -28,7 +28,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if (sum(is.na(Qobs)) != length(Qobs)) {
BOOL_Qobs <- TRUE
}
- } else if (inherits(OutputsModel, "GR")) {
+ } else if (inherits(OutputsModel, "GR") & !is.null(Qobs)) {
warning("Incorrect length of 'Qobs'. Time series of observed flow not drawn")
}
BOOL_Snow <- FALSE
--
GitLab