v1.2.11.15 CLEAN: unnecessary command lines removed in CreateInputsCrit

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.11.13
-Date: 2019-03-25
+Version: 1.2.11.15
+Date: 2019-03-26
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
   person("Charles", "Perrin", role = c("aut", "ths"), comment = c(ORCID = "0000-0001-8552-1881")),

NEWS.rmd

@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.11.13 Release Notes (2019-03-25) 
+### 1.2.11.15 Release Notes (2019-03-26) 
 
 
 

R/CreateInputsCrit.R

@@ -295,14 +295,13 @@ CreateInputsCrit <- function(FUN_CRIT,
   ## define idLayer as an index of the layer to use
   for (iInCnVarObs in unique(listVarObs)) {
     if (iInCnVarObs == "Q") {
-      k <- 1
       for (i in which(listVarObs == iInCnVarObs)) {
         InputsCrit[[i]]$idLayer <- NA
-        k <- k + 1
       }
     } else {
       aa <- listGroupLayer0[listVarObs == iInCnVarObs]
-      bb <- c(0, aa[-length(aa)])
+      aa <- unname(aa)
+      bb <- cumsum(c(0, aa[-length(aa)]))
       cc <- lapply(seq_along(aa), function(x) seq_len(aa[x]) + bb[x])
       k <- 1
       for (i in which(listVarObs == iInCnVarObs)) {