diff --git a/R/CreateRunOptions.R b/R/CreateRunOptions.R index ec7acbfbb2789ddd51cfa9e95a20899bdec8b277..4edbdd7184f0b489ebde8c6628bae9eb5a6ab998 100644 --- a/R/CreateRunOptions.R +++ b/R/CreateRunOptions.R @@ -24,6 +24,14 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, ObjectClass <- FeatFUN_MOD$Class TimeStepMean <- FeatFUN_MOD$TimeStepMean + ## manage class + if (IsIntStore) { + ObjectClass <- c(ObjectClass, "interception") + } + if (IsHyst) { + ObjectClass <- c(ObjectClass, "hysteresis") + } + if (!"CemaNeige" %in% ObjectClass & "hysteresis" %in% ObjectClass) { stop("'IsHyst' cannot be TRUE for the chosen 'FUN_MOD'") }