style: add missing whitespaces in CreateRunOptions

R/CreateRunOptions.R

@@ -141,12 +141,12 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
       if (any(is.na(IniResLevels[1:2]))) {
         stop("the first 2 values of 'IniResLevels' cannot be missing values for the chosen 'FUN_MOD'")
       }
-      # if ((identical(FUN_MOD,RunModel_GR6J) | identical(FUN_MOD,RunModel_CemaNeigeGR6J) |
+      # if ((identical(FUN_MOD, RunModel_GR6J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J) |
       #      (identical(FUN_MOD, RunModel_GR5H) & IsIntStore)) &
       #     length(IniResLevels) != 3) {
       #   stop("the length of 'IniResLevels' must be 3 for the chosen 'FUN_MOD'")
       # }
-      if ((identical(FUN_MOD,RunModel_GR6J) | identical(FUN_MOD,RunModel_CemaNeigeGR6J))) {
+      if ((identical(FUN_MOD, RunModel_GR6J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J))) {
         if (is.na(IniResLevels[3L])) {
           stop("the third value of 'IniResLevels' cannot be a missing value for the chosen 'FUN_MOD'")
         }
@@ -156,7 +156,7 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
           IniResLevels[3L] <- NA
         }
       }
-      if (identical(FUN_MOD,RunModel_GR5H) | identical(FUN_MOD,RunModel_CemaNeigeGR5H)) {
+      if (identical(FUN_MOD, RunModel_GR5H) | identical(FUN_MOD, RunModel_CemaNeigeGR5H)) {
         if (IsIntStore & is.na(IniResLevels[4L])) {
           stop("the fourth value of 'IniResLevels' cannot be a missing value for the chosen 'FUN_MOD' (GR5H with an interception store)")
         }
@@ -204,7 +204,7 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
   NState <- NULL
   if ("GR" %in% ObjectClass | "CemaNeige" %in% ObjectClass) {
     if ("hourly"  %in% ObjectClass) {
-      NState <- 7 + 3 * 24 * 20+ 4 * NLayers
+      NState <- 7 + 3 * 24 * 20 + 4 * NLayers
     }
     if ("daily"   %in% ObjectClass) {
       NState <- 7 + 3 * 20 + 4 * NLayers
@@ -283,25 +283,25 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
 
   ##Outputs_all
   Outputs_all <- NULL
-  if (identical(FUN_MOD,RunModel_GR4H) | identical(FUN_MOD,RunModel_CemaNeigeGR4H)) {
+  if (identical(FUN_MOD, RunModel_GR4H) | identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR4H")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR5H) | identical(FUN_MOD,RunModel_CemaNeigeGR5H)) {
+  if (identical(FUN_MOD, RunModel_GR5H) | identical(FUN_MOD, RunModel_CemaNeigeGR5H)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR5H")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR4J) | identical(FUN_MOD,RunModel_CemaNeigeGR4J)) {
+  if (identical(FUN_MOD, RunModel_GR4J) | identical(FUN_MOD, RunModel_CemaNeigeGR4J)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR4J")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR5J) | identical(FUN_MOD,RunModel_CemaNeigeGR5J)) {
+  if (identical(FUN_MOD, RunModel_GR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR5J")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR6J) | identical(FUN_MOD,RunModel_CemaNeigeGR6J)) {
+  if (identical(FUN_MOD, RunModel_GR6J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR6J")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR2M)) {
+  if (identical(FUN_MOD, RunModel_GR2M)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR2M")$GR)
   }
-  if (identical(FUN_MOD,RunModel_GR1A)) {
+  if (identical(FUN_MOD, RunModel_GR1A)) {
     Outputs_all <- c(Outputs_all, .FortranOutputs(GR = "GR1A")$GR)
   }
   if ("CemaNeige" %in% ObjectClass) {