From f074d04ef3ae029545f4edef36581aff8aa01738 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Tue, 20 Jun 2023 11:18:00 +0200
Subject: [PATCH] fix(CreateInputsModel): Missing IsHyst arguments in function
calls
Refs #134
---
R/CreateInputsModel.GRiwrm.R | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/CreateInputsModel.GRiwrm.R b/R/CreateInputsModel.GRiwrm.R
index e36d26b..e9f560c 100644
--- a/R/CreateInputsModel.GRiwrm.R
+++ b/R/CreateInputsModel.GRiwrm.R
@@ -215,7 +215,8 @@ CreateInputsModel.GRiwrm <- function(x, DatesR,
HypsoData = getInputBV(HypsoData, id),
NLayers = getInputBV(NLayers, id, 5),
Qobs = Qobs,
- Qmin = getInputBV(Qmin, id)
+ Qmin = getInputBV(Qmin, id),
+ IsHyst = IsHyst
)
}
attr(InputsModel, "TimeStep") <- getModelTimeStep(InputsModel)
@@ -250,7 +251,7 @@ CreateEmptyGRiwrmInputsModel <- function(griwrm) {
#'
#' @return \emph{InputsModel} object for one.
#' @noRd
-CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin) {
+CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin, IsHyst) {
np <- getNodeProperties(id, griwrm)
if (np$Diversion) {
--
GitLab