v1.3.2.50 BUG: add condition to avoid error when log_scale = TRUE, Qobs = NULL...

v1.3.2.50 BUG: add condition to avoid error when log_scale = TRUE, Qobs = NULL and user want to draw flows time series

v1.3.2.50 BUG: add condition to avoid error when log_scale = TRUE, Qobs = NULL...
v1.3.2.50 BUG: add condition to avoid error when log_scale = TRUE, Qobs = NULL and user want to draw flows time series
8228872b · Delaigue Olivier · 721df7a1 · 8228872b · 8228872b · 8228872b
Commit 8228872b authored 5 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 7 additions and 6 deletions
+7 -6
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.3.2.49
+Version: 1.3.2.50
 Date: 2019-11-08
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@



-### 1.3.2.49 Release Notes (2019-11-08)
+### 1.3.2.50 Release Notes (2019-11-08)


 #### Bug fixes

--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -487,10 +487,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
    mar <- c(3, 5, 1, 5)
    par(new = FALSE, mar = mar)
    
-    DATA2 <- Qobs
-    DATA2[!SelectQobsNotZero] <- mean(Qobs, na.rm = TRUE) / 10000
-    DATA2 <- log(DATA2)
-    
+    if (BOOL_Qobs) {    
+      DATA2 <- Qobs
+      DATA2[!SelectQobsNotZero] <- mean(Qobs, na.rm = TRUE) / 10000
+      DATA2 <- log(DATA2)
+    }
    DATA3 <- OutputsModel$Qsim
    DATA3[!SelectQsimNotZero] <- mean(OutputsModel$Qsim, na.rm = TRUE) / 10000
    DATA3 <- log(DATA3)