From d128a4d6b5f74140a4281584aceba51b70d97a4d Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Tue, 19 Nov 2019 10:23:41 +0100
Subject: [PATCH] v1.3.2.55 UPDATE: remove "evap" dashboard in
plot.OutputsModel #2
---
DESCRIPTION | 2 +-
NEWS.md | 2 +-
R/plot.OutputsModel.R | 5 +----
3 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 2d756c58..550c6289 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.3.2.54
+Version: 1.3.2.55
Date: 2019-11-19
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 31b414a5..abc7dad4 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@
-### 1.3.2.54 Release Notes (2019-11-19)
+### 1.3.2.55 Release Notes (2019-11-19)
#### New features
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index cca9dca2..85d2418e 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -76,7 +76,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
## check 'which'
whichNeedQobs <- c("Error", "CorQQ")
- whichDashboard <- c("all", "synth", "ts", "evap", "perf")
+ whichDashboard <- c("all", "synth", "ts", "perf")
whichAll <- c("Precip", "PotEvap", "ActuEvap", "Temp", "SnowPack", "Flows", "Error", "Regime", "CumFreq", "CorQQ")
whichSynth <- c("Precip" , "Temp", "SnowPack", "Flows" , "Regime", "CumFreq", "CorQQ")
whichTS <- c("Precip", "PotEvap", "Temp", "SnowPack", "Flows" )
@@ -122,9 +122,6 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if ("ts" %in% which) {
which <- c(which, whichTS)
}
- if ("evap" %in% which) {
- which <- c(which, whichEvap)
- }
if ("synth" %in% which) {
which <- c(which, whichSynth)
}
--
GitLab