From ff7c567b8ae22a28aa7be1810675f600708e4d35 Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Wed, 5 Apr 2017 17:44:21 +0200
Subject: [PATCH] v1.0.6.14 plot.OutputsModel now returns a warning when the
length of Qobs is different from the length of Qsim
---
DESCRIPTION | 2 +-
R/plot.OutputsModel.R | 8 +++++++-
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 920ef32f..a8c336c0 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.0.6.13
+Version: 1.0.6.14
Date: 2017-04-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index bd39397e..a8c01206 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -16,7 +16,13 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
BOOL_Qsim <- FALSE;
if ("Qsim" %in% names(OutputsModel)) { BOOL_Qsim <- TRUE; }
BOOL_Qobs <- FALSE;
- if (BOOL_Qsim & length(Qobs) == length(OutputsModel$Qsim)) { if (sum(is.na(Qobs)) != length(Qobs)) { BOOL_Qobs <- TRUE; } }
+ if (BOOL_Qsim & length(Qobs) == length(OutputsModel$Qsim)) {
+ if (sum(is.na(Qobs)) != length(Qobs)) {
+ BOOL_Qobs <- TRUE
+ }
+ } else {
+ warning("Incorrect length of Qobs. Time series of observed flow not drawn.")
+ }
BOOL_Snow <- FALSE;
if ("CemaNeigeLayers" %in% names(OutputsModel)) { if ("SnowPack" %in% names(OutputsModel$CemaNeigeLayers[[1]])) { BOOL_Snow <- TRUE; } }
BOOL_Psol <- FALSE;
--
GitLab