Commit 3676d9cd authored by Dorchies David's avatar Dorchies David
Browse files

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

Refs #111
parent 419baf7e
......@@ -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
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment