From 738a102cf3aa67921a907bb0aadc4ef8ab85401e Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Mon, 29 Mar 2021 14:38:42 +0200
Subject: [PATCH] fix: add missing the management lines of the class removed by
mistake in CreateRunOptions
---
R/CreateRunOptions.R | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/R/CreateRunOptions.R b/R/CreateRunOptions.R
index ec7acbfb..4edbdd71 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'")
}
--
GitLab