v1.3.2.36 BUG: wrong conditional expressions correcttd to have a right number...

v1.3.2.36 BUG: wrong conditional expressions correcttd to have a right number of end states returned by CreateIniStates for CemaNeige whithout hysteresis #5618

DESCRIPTION

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

NEWS.md

@@ -2,7 +2,7 @@
 
 
 
-### 1.3.2.35 Release Notes (2019-09-19)
+### 1.3.2.36 Release Notes (2019-09-19)
 
 
 #### Version control and issue tracking

R/CreateIniStates.R

@@ -203,13 +203,13 @@ CreateIniStates <- function(FUN_MOD, InputsModel, IsHyst = FALSE,
   if (is.null(GthrCemaNeigeLayers)) {
     GthrCemaNeigeLayers <- rep(Inf, NLayers)
   }
-  if (is.infinite(GthrCemaNeigeLayers)) {
+  if (any(is.infinite(GthrCemaNeigeLayers))) {
     GthrCemaNeigeLayers <- rep(Inf, NLayers)
   }
   if (is.null(GlocmaxCemaNeigeLayers)) {
     GlocmaxCemaNeigeLayers <- rep(Inf, NLayers)
   }
-  if (is.infinite(GlocmaxCemaNeigeLayers)) {
+  if (any(is.infinite(GlocmaxCemaNeigeLayers))) {
     GlocmaxCemaNeigeLayers <- rep(Inf, NLayers)
   }