v1.2.7.5 CLEAN: typo revisions and prints removed

DESCRIPTION

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

NEWS.rmd

@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.7.4 Release Notes (2019-03-04) 
+### 1.2.7.5 Release Notes (2019-03-04) 
 
 
 

R/CreateIniStates.R

@@ -182,7 +182,7 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
   if (is.null(GlocmaxCemaNeigeLayers)) {
     GlocmaxCemaNeigeLayers <- rep(Inf, NLayers)
   }
-  cat(GCemaNeigeLayers)
+  
   
   # check negative values
   if (any(ProdStore < 0) | any(RoutStore < 0) |

R/CreateRunOptions.R

@@ -313,14 +313,13 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
     Outputs_Cal <- c("DatesR", Outputs_all, "StateEnd")
     
   }
-  Test <-
-    which(Outputs_Cal %in% c("DatesR", Outputs_all, "StateEnd") == FALSE)
+  Test <- which(Outputs_Cal %in% c("DatesR", Outputs_all, "StateEnd") == FALSE)
   if (length(Test) != 0) {
     stop(paste0("'Outputs_Cal' is incorrectly defined: ",
                 paste(Outputs_Cal[Test], collapse = ", "), " not found"))
   }
   Outputs_Cal <- Outputs_Cal[!duplicated(Outputs_Cal)]
-  Outputs_Calxxx <- unique(Outputs_Cal[!duplicated(Outputs_Cal)])
+  Outputs_Calxxx <- unique(Outputs_Cal)
   print(Outputs_Cal)
   print(Outputs_Calxxx)
   

R/RunModel_CemaNeige.R

@@ -11,7 +11,7 @@ RunModel_CemaNeige <- function(InputsModel, RunOptions, Param, IsHyst = FALSE) {
   NParam <- ifelse(IsHyst, 4L, 2L)
   NStates <- 4L
   FortranOutputsCemaNeige <- .FortranOutputs(GR = NULL, isCN = TRUE)$CN
-  print(FortranOutputsCemaNeige)
+  
   
   ## Arguments_check
   if (!inherits(InputsModel, "InputsModel")) {