From 60d9bf6161e5b94355f902a6783a54530cac8515 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Wed, 29 Jun 2022 09:14:21 +0200
Subject: [PATCH] fix(SD): Set FUN_SD to NULL when !IsSD
Version from Enola 09/06/2022
Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153
---
R/CreateCalibOptions.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index 10be5da..9102561 100644
--- a/R/CreateCalibOptions.R
+++ b/R/CreateCalibOptions.R
@@ -24,6 +24,9 @@ CreateCalibOptions <- function(FUN_MOD,
}
## check FUN_MOD
+ if (!isTRUE(IsSD)) {
+ FUN_SD <- NULL
+ }
FeatFUN_MOD <- .GetFeatModel(FUN_MOD = FUN_MOD, FUN_SD = FUN_SD)
FeatFUN_MOD$IsHyst <- IsHyst
FeatFUN_MOD$IsSD <- IsSD
--
GitLab