v1.0.8.6 bug fixed in plot.OutputsModel() for the regime plot when the peridod...

v1.0.8.6 bug fixed in plot.OutputsModel() for the regime plot when the peridod is less than 1 year #4660

v1.0.8.6 bug fixed in plot.OutputsModel() for the regime plot when the peridod...
v1.0.8.6 bug fixed in plot.OutputsModel() for the regime plot when the peridod is less than 1 year #4660
f1b3d53b · unknown · 6f7636b1 · f1b3d53b · f1b3d53b
Commit f1b3d53b authored 7 years ago by unknown
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 2 deletions
+3 -2
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.8.5
+Version: 1.0.8.6
-Date: 2017-06-21
+Date: 2017-06-22
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl")),
  person("Charles", "Perrin", role = c("aut", "ths")),

--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -436,6 +436,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
                                ylim <- range(log(OutputsModel$Qsim[IndPeriod_Plot][SelectNotZero]), na.rm = TRUE); }
    if ( BOOL_Qobs &  BOOL_Qsim) { SelectNotZero <- SelectQobsNotZero & SelectQsimNotZero;
                                ylim <- range(log(c(Qobs[IndPeriod_Plot][SelectNotZero], OutputsModel$Qsim[IndPeriod_Plot][SelectNotZero])), na.rm = TRUE); }
+    SelectNotZero <- ifelse(is.na(SelectNotZero), FALSE, SelectNotZero)
    if (any(SelectNotZero)) {
      plot(0, 0, type = "n",
           xlim = xlim, ylim = ylim,