v1.6.3.64 stye: add breaklines afet else conditions in RunModel_CemaNeigeGR* functions

Refs #14

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.3.63
+Version: 1.6.3.64
 Date: 2020-11-17
 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.63 Release Notes (2020-11-17)
+### 1.6.3.64 Release Notes (2020-11-17)
 
 #### New features
 

R/RunModel_CemaNeigeGR4J.R

@@ -74,7 +74,8 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) {
   if (inherits(RunOptions, "CemaNeige")) {
     if ("all" %in% RunOptions$Outputs_Sim) {
       IndOutputsCemaNeige <- as.integer(1:length(FortranOutputs$CN)) 
-    } else { IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim)
+    } else {
+      IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim)
     }
     CemaNeigeLayers <- list()
     CemaNeigeStateEnd <- NULL
@@ -138,7 +139,8 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) {
   ## MODEL______________________________________________________________________________________
   if ("all" %in% RunOptions$Outputs_Sim) {
     IndOutputsMod <- as.integer(1:length(FortranOutputs$GR))
-  } else { IndOutputsMod <- which(FortranOutputs$GR %in% RunOptions$Outputs_Sim)
+  } else {
+    IndOutputsMod <- which(FortranOutputs$GR %in% RunOptions$Outputs_Sim)
   }
   
   ## Use_of_IniResLevels

R/RunModel_CemaNeigeGR5H.R

@@ -90,7 +90,8 @@ RunModel_CemaNeigeGR5H <- function(InputsModel, RunOptions, Param) {
   if (inherits(RunOptions, "CemaNeige")) {
     if ("all" %in% RunOptions$Outputs_Sim) {
       IndOutputsCemaNeige <- as.integer(1:length(FortranOutputs$CN))
-    } else { IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim)
+    } else {
+      IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim)
     }
     CemaNeigeLayers <- list()
     CemaNeigeStateEnd <- NULL