v1.2.12.5 BUG: add a check to always export Qsim in CreateRunOptions

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.12.4
+Version: 1.2.12.5
 Date: 2019-03-29
 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.12.4 Release Notes (2019-03-28) 
+### 1.2.12.5 Release Notes (2019-03-28) 
 
 
 

R/CreateRunOptions.R

@@ -401,6 +401,28 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
   }
   
   
+  ##check_Qsim
+  if ("GR" %in% ObjectClass) {
+    if (!"Qsim" %in% Outputs_Cal & !"all" %in% Outputs_Cal) {
+      WTxt <- NULL
+      WTxt <- paste0(WTxt, "\t 'Qsim' was not defined in 'Outputs_Cal' \n")
+      WTxt <- paste0(WTxt, "\t -> it was automatically added \n")
+      if (!is.null(WTxt) & warnings) {
+        warning(WTxt)
+      }
+      Outputs_Cal <- c(Outputs_Cal, "Qsim")
+    }
+    if (!"Qsim" %in% Outputs_Sim & !"all" %in% Outputs_Sim) {
+      WTxt <- NULL
+      WTxt <- paste0(WTxt, "\t 'Qsim' was not defined in 'Outputs_Sim' \n")
+      WTxt <- paste0(WTxt, "\t -> it was automatically added \n")
+      if (!is.null(WTxt) & warnings) {
+        warning(WTxt)
+      }
+      Outputs_Sim <- c(Outputs_Sim, "Qsim")
+    }
+  }
+  
   ##Create_RunOptions
   RunOptions <- list(IndPeriod_WarmUp = IndPeriod_WarmUp,
                      IndPeriod_Run = IndPeriod_Run,