fix: crash of regularisation with cemaneige

- fix missing "Param" in Outputs_Cal Refs #111

fix: crash of regularisation with cemaneige
- fix missing "Param" in Outputs_Cal Refs #111
5a7cbe6c · Dorchies David · 42b57b23 · 5a7cbe6c
Commit 5a7cbe6c authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 4 deletions
+3 -4
--- a/R/CreateRunOptions.R
+++ b/R/CreateRunOptions.R
@@ -334,14 +334,13 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
  if (is.null(Outputs_Cal)) {
    if ("GR" %in% ObjectClass) {
      Outputs_Cal <- c("Qsim", "Param")
+      if ("CemaNeige" %in% ObjectClass) {
+        Outputs_Cal <- c("PliqAndMelt", Outputs_Cal)
+      }
    }
    if ("CemaNeige" %in% ObjectClass) {
      Outputs_Cal <- c("all")
    }
-    if ("GR" %in% ObjectClass &
-        "CemaNeige" %in% ObjectClass) {
-      Outputs_Cal <- c("PliqAndMelt", "Qsim")
-    }
  } else {
    if (!is.vector(Outputs_Cal)) {
      stop("'Outputs_Cal' must be a vector of characters")