v1.0.9.52 error message fixed in CreateRunOptions when the length of IniResLevels is checked

1b62dfdd · unknown · e5af398e · 1b62dfdd · 1b62dfdd · 1b62dfdd
Commit 1b62dfdd authored 7 years ago by unknown
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 5 deletions
+5 -5
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.51
+Version: 1.0.9.52
-Date: 2017-10-17
+Date: 2017-10-23
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl")),
  person("Charles", "Perrin", role = c("aut", "ths")),

--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
-### 1.0.9.51 Release Notes (2017-10-17) 
+### 1.0.9.52 Release Notes (2017-10-23) 
 #### New features

--- a/R/CreateRunOptions.R
+++ b/R/CreateRunOptions.R
@@ -109,12 +109,12 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
             identical(FUN_MOD, RunModel_GR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J) |
             identical(FUN_MOD, RunModel_GR2M)) &
            length(IniResLevels) != 2) {
-          stop("The length of IniStates must be 2 for the chosen FUN_MOD \n")
+          stop("The length of IniResLevels must be 2 for the chosen FUN_MOD \n")
          return(NULL)
        }
        if ((identical(FUN_MOD,RunModel_GR6J) | identical(FUN_MOD,RunModel_CemaNeigeGR6J)) &
            length(IniResLevels) != 3) {
-          stop("The length of IniStates must be 3 for the chosen FUN_MOD \n")
+          stop("The length of IniResLevels must be 3 for the chosen FUN_MOD \n")
          return(NULL)
        }
      } else if (is.null(IniStates)) {