From 9a98522cf77ad91c65aac198e780158aae626909 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 13 Apr 2021 18:16:25 +0200
Subject: [PATCH] refactor: manage with case sensitivity of the QupstrUnit
argument in CreateInputsModel Refs 7cbab175, #110
---
R/CreateInputsModel.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index e025c851..5b4fa88a 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -339,7 +339,7 @@ CreateInputsModel <- function(FUN_MOD,
Qupstream[,iConvBasins] <- Qupstream[,iConvBasins] * BasinAreas[iConvBasins] * 1e3
} else if (QupstrUnit == "m3/s") {
Qupstream <- Qupstream * TimeStep
- } else if (QupstrUnit %in% c("l/s", "L/s")) {
+ } else if (QupstrUnit == "l/s") {
Qupstream <- Qupstream * TimeStep / 1e3
}
InputsModel <- c(InputsModel, list(Qupstream = Qupstream,
--
GitLab