fix(TransfoParam): issue with Cemaneige models

- Missing item "IsHyst" in `RunOptions$FeatFUN_MOD` causes crash Regression after refactoring in #111

fix(TransfoParam): issue with Cemaneige models
- Missing item "IsHyst" in `RunOptions$FeatFUN_MOD` causes crash Regression after refactoring in #111
fca47a56 · Dorchies David · ee73e80d · fca47a56
Commit fca47a56 authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 3 deletions
+5 -3
--- a/R/CreateRunOptions.R
+++ b/R/CreateRunOptions.R
@@ -32,10 +32,12 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
  if (IsIntStore) {
    ObjectClass <- c(ObjectClass, "interception")
  }
-  if (IsHyst) {
-    ObjectClass <- c(ObjectClass, "hysteresis")
+  if ("CemaNeige" %in% FeatFUN_MOD$Class) {
    FeatFUN_MOD$IsHyst <- IsHyst
-    FeatFUN_MOD$NbParam <- FeatFUN_MOD$NbParam + 2
+    if (isHyst) {
+      ObjectClass <- c(ObjectClass, "hysteresis")
+      FeatFUN_MOD$NbParam <- FeatFUN_MOD$NbParam + 2
+    }
  }

  ## SD model