v1.4.1.20 NEW: add a condition to check if Imax < 0 in CreaRunOptions #13

c166e53b · Hban Mesure · b25cc8d5 · c166e53b · c166e53b · c166e53b
Commit c166e53b authored 5 years ago by Hban Mesure
Hide whitespace changes
Inline Side-by-side

Showing

with 6 additions and 3 deletions
+6 -3
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.4.1.19
+Version: 1.4.1.20
 Date: 2019-12-06
 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.4.1.19 Release Notes (2019-12-06)
+### 1.4.1.20 Release Notes (2019-12-06)


 #### New features

--- a/R/CreateRunOptions.R
+++ b/R/CreateRunOptions.R
@@ -10,8 +10,11 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
  }
  if (!is.null(Imax)) {
    if (!is.numeric(Imax) | length(Imax) != 1L) {
-      stop("'Imax' must be a 'numeric' of length 1")
+      if (Imax < 0) {
+        stop("'Imax' must be a non negative 'numeric' value of length 1")
+      }
    }
+  }
    IsIntStore <- TRUE
  } else {
    IsIntStore <- FALSE