From 4336bd1101e6868c4e8a05e366b2eb108f60c190 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Wed, 24 Mar 2021 09:28:30 +0100
Subject: [PATCH] feat(Lag): Add warning for LenghtHydro > 1000
Refs #112
---
R/CreateInputsModel.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index d09031ca..2a2a6488 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -212,6 +212,9 @@ CreateInputsModel <- function(FUN_MOD,
if(any(is.na(Qupstream))) {
stop("'Qupstream' cannot contain any NA value")
}
+ 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")
+ }
}
##check_NA_values
--
GitLab