fix: add missing property used in CreateInputsCrit to identify gauged ID

Refs #42

fix: add missing property used in CreateInputsCrit to identify gauged ID
Refs #42
ece31a8d · Dorchies David · 608c6543 · ece31a8d
Commit ece31a8d authored 2 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 1 deletion
+2 -1
--- 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)