diff --git a/R/CreateRunOptions.R b/R/CreateRunOptions.R index b91342b524526a9ba840d57fa644376bd9a587f3..c745217bc162a28116074ba0e7d1b1fff52bdbcb 100644 --- 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 }