Commit 95235f44 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.2.16.25 CLEAN: warning msg improved in plot.OutputsModel fun

Showing with 4 additions and 4 deletions
+4 -4
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.2.16.24 Version: 1.2.16.25
Date: 2019-06-07 Date: 2019-06-07
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
...@@ -14,7 +14,7 @@ output: ...@@ -14,7 +14,7 @@ output:
### 1.2.16.24 Release Notes (2019-06-07) ### 1.2.16.25 Release Notes (2019-06-07)
#### New features #### New features
......
...@@ -117,12 +117,12 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = ...@@ -117,12 +117,12 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
} }
if (is.null(Qobs)) { if (is.null(Qobs)) {
if (length(which) == 1 & any(which %in% c("CorQQ", "Error"))) { if (length(which) == 1 & any(which %in% c("CorQQ", "Error"))) {
stop(sprintf("the %s time series cannot be drawn if there is no 'Qobs'", shQuote(which))) stop(sprintf("the %s plot(s) cannot be drawn if there is no 'Qobs'", shQuote(which)))
} }
if (length(which) != 1 & any(which %in% c("CorQQ", "Error"))) { if (length(which) != 1 & any(which %in% c("CorQQ", "Error"))) {
BOOL_CorQQ <- FALSE BOOL_CorQQ <- FALSE
BOOL_Error <- FALSE BOOL_Error <- FALSE
warning(sprintf("the %s time series cannot be drawn if there is no 'Qobs'", warning(sprintf("the %s plot(s) cannot be drawn if there is no 'Qobs'",
paste0(shQuote(c("CorQQ", "Error")), collapse = " and "))) paste0(shQuote(c("CorQQ", "Error")), collapse = " and ")))
} }
} }
......
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