From 208a4e63afcb2d1108b5c78be867699325ee2c20 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Wed, 5 Jul 2023 16:17:29 +0200
Subject: [PATCH] fix(CreateInputsModel): warning on reservoirs with several
upstream nodes
Avis : longer object length is not a multiple of shorter object length
---
R/CreateInputsModel.GRiwrm.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/CreateInputsModel.GRiwrm.R b/R/CreateInputsModel.GRiwrm.R
index 1159161..d3c6bfd 100644
--- a/R/CreateInputsModel.GRiwrm.R
+++ b/R/CreateInputsModel.GRiwrm.R
@@ -352,7 +352,7 @@ CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin, IsHyst) {
InputsModel$Qmin <- Qmin
} else if(np$Reservoir) {
# If an upstream node is ungauged then we are in an ungauged reduced network
- InputsModel$isUngauged <- any(griwrm$model[griwrm$id == griwrm$id[UpstreamNodeRows]] == "Ungauged")
+ InputsModel$isUngauged <- any(griwrm$model[griwrm$id %in% griwrm$id[UpstreamNodeRows]] == "Ungauged")
InputsModel$Qrelease <- Qobs[, id]
}
return(InputsModel)
--
GitLab