fix(SD): Set FUN_SD to NULL when !IsSD

Version from Enola 09/06/2022 Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153

fix(SD): Set FUN_SD to NULL when !IsSD
Version from Enola 09/06/2022 Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153
60d9bf61 · Dorchies David · f8a06071 · 60d9bf61
Commit 60d9bf61 authored 2 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 0 deletions
+3 -0
--- 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