From ece31a8de07f6451d7115abf8d6b9ba4a7939012 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Mon, 25 Jul 2022 11:09:27 +0200
Subject: [PATCH] fix: add missing property used in CreateInputsCrit to
identify gauged ID
Refs #42
---
R/CreateInputsModel.GRiwrm.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/CreateInputsModel.GRiwrm.R b/R/CreateInputsModel.GRiwrm.R
index 84f4423..9d8897c 100644
--- a/R/CreateInputsModel.GRiwrm.R
+++ b/R/CreateInputsModel.GRiwrm.R
@@ -194,7 +194,8 @@ CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs) {
# Add the model function
InputsModel$FUN_MOD <- FUN_MOD
- InputsModel$IsUngauged <- griwrm$model[griwrm$id == id] == "Ungauged"
+ InputsModel$isUngauged <- griwrm$model[griwrm$id == id] == "Ungauged"
+ InputsModel$gaugedId <- griwrm$gauged[griwrm$id == id]
InputsModel$hasUngaugedNodes <- hasUngaugedNodes(id, griwrm)
return(InputsModel)
--
GitLab