vv1.6.3.51 fix: remove bad spaces from the RunModel_GR2* functions

Refs ec27c27c, #14

DESCRIPTION

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

NEWS.md

@@ -4,7 +4,7 @@
 
 
 
-### 1.6.3.52 Release Notes (2020-11-11)
+### 1.6.3.53 Release Notes (2020-11-11)
 
 #### New features
 

R/RunModel_GR2M.R

@@ -13,7 +13,7 @@ RunModel_GR2M <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X2_threshold <- 1e-2

R/RunModel_GR4H.R

@@ -13,7 +13,7 @@ RunModel_GR4H <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X3_threshold <- 1e-2

R/RunModel_GR4J.R

@@ -13,7 +13,7 @@ RunModel_GR4J <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X3_threshold <- 1e-2

R/RunModel_GR5H.R

@@ -19,7 +19,7 @@ RunModel_GR5H <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X3_threshold <- 1e-2

R/RunModel_GR5J.R

@@ -13,7 +13,7 @@ RunModel_GR5J <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X3_threshold <- 1e-2

R/RunModel_GR6J.R

@@ -13,7 +13,7 @@ RunModel_GR6J <- function(InputsModel,RunOptions,Param) {
   if (inherits(RunOptions,"RunOptions"  ) == FALSE) { stop("'RunOptions' must be of class 'RunOptions'  ") }  
   if (inherits(RunOptions,"GR"          ) == FALSE) { stop("'RunOptions' must be of class 'GR'          ") }  
   if (!is.vector(Param) | !is.numeric(Param)) { stop("'Param' must be a numeric vector") }
-  if (sum(!is.na(Param))! = NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
+  if (sum(!is.na(Param)) != NParam) { stop(paste("'Param' must be a vector of length ",NParam," and contain no NA",sep = "")) }
   Param <- as.double(Param);
   
   Param_X1X3X6_threshold <- 1e-2