From 77fa9c32d924feb03c61726f66f93b6efd5be14b Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 13 Apr 2021 16:38:55 +0200
Subject: [PATCH] refactor: check the QupstrUnit argument using match.arg in
CreateInputsModel Refs #110
---
R/CreateInputsModel.R | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index c133ed7d..9ee5d4c6 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -216,9 +216,7 @@ CreateInputsModel <- function(FUN_MOD,
if(any(LengthHydro > 1000)) {
warning("The unit of 'LengthHydro' has changed from m to km in v1.7 of airGR: values superior to 1000 km seem unrealistic")
}
- if (!(QupstrUnit %in% c("mm", "m3", "m3/s", "l/s", "L/s"))) {
- stop("'QupstrUnit' must be one of these values: 'mm', 'm3', 'm3/s', 'L/s' or 'l/s'")
- }
+ QupstrUnit <- match.arg(arg = QupstrUnit, choices = c("mm", "m3", "m3/s", "l/s", "L/s"))
}
##check_NA_values
--
GitLab