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

Refs #111

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
   }