feat(CreateRunOptions): add IsHyst and IsSD in FeatFUN_MOD item

Refs #111

feat(CreateRunOptions): add IsHyst and IsSD in FeatFUN_MOD item
Refs #111
3676d9cd · Dorchies David · 419baf7e · 3676d9cd
Commit 3676d9cd authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 0 deletions
+2 -0
--- a/R/CreateRunOptions.R
+++ b/R/CreateRunOptions.R
@@ -21,6 +21,7 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
  ## check FUN_MOD
  FUN_MOD <- match.fun(FUN_MOD)
  FeatFUN_MOD <- .GetFeatModel(FUN_MOD = FUN_MOD, DatesR = InputsModel$DatesR)
+  FeatFUN_MOD$IsSD <- inherits(InputsModel, "SD")
  ObjectClass <- FeatFUN_MOD$Class
  TimeStepMean <- FeatFUN_MOD$TimeStepMean

@@ -34,6 +35,7 @@ CreateRunOptions <- function(FUN_MOD, InputsModel,
  }
  if (IsHyst) {
    ObjectClass <- c(ObjectClass, "hysteresis")
+    FeatFUN_MOD$IsHyst <- IsHyst
    FeatFUN_MOD$NbParam <- FeatFUN_MOD$NbParam + 2
  }