From 3676d9cdb2a094e3d6226a6554d5b26e8fd53e2a Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Tue, 22 Jun 2021 15:12:35 +0200
Subject: [PATCH] feat(CreateRunOptions): add IsHyst and IsSD in FeatFUN_MOD
item
Refs #111
---
R/CreateRunOptions.R | 2 ++
1 file changed, 2 insertions(+)
diff --git a/R/CreateRunOptions.R b/R/CreateRunOptions.R
index b91342b5..c745217b 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
}
--
GitLab