feat(Lag): Add warning for LenghtHydro > 1000

Refs #112

feat(Lag): Add warning for LenghtHydro > 1000
Refs #112
4336bd11 · Dorchies David · 734f6945 · 4336bd11
Commit 4336bd11 authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 0 deletions
+3 -0
--- 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