v1.2.16.20 NEW: warning msg added when which = "CorQQ" and there is no 'Qobs'...

v1.2.16.20 NEW: warning msg added when which = "CorQQ" and there is no 'Qobs' in plot.OutputsModel fun

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.16.19
+Version: 1.2.16.20
 Date: 2019-06-06
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.rmd

@@ -14,7 +14,7 @@ output:
 
 
 
-### 1.2.16.19 Release Notes (2019-06-06)
+### 1.2.16.20 Release Notes (2019-06-06)
 
 
 #### New features

R/plot.OutputsModel.R

@@ -116,12 +116,14 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
     which <- c(which, whichAll)
   }
   if (is.null(Qobs)) {
-    if (length(which) == 1 & any(which %in% "Error")) {
-      stop("the 'Error' time series cannot be drawn if there is no 'Qobs'")
+    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)))
     }
-    if (length(which) != 1 & any(which %in% c("Error", "all"))) {
+    if (length(which) != 1 & any(which %in% c("CorQQ", "Error"))) {
+      BOOL_CorQQ <- FALSE
       BOOL_Error <- FALSE
-      warning("the 'Error' time series cannot be drawn if there is no 'Qobs'")
+      warning(sprintf("the %s time series cannot be drawn if there is no 'Qobs'",
+                      paste0(shQuote(c("CorQQ", "Error")), collapse = " and ")))
     }
   }