refactor: manage with case sensitivity of the QupstrUnit argument in CreateInputsModel

Refs 7cbab175, #110

refactor: manage with case sensitivity of the QupstrUnit argument in CreateInputsModel
Refs 7cbab175, #110
9a98522c · Delaigue Olivier · 5859baed · 9a98522c
Commit 9a98522c authored 4 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- 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,