refactor: change warning message calling in 'CreateInputsModel'

162a24b7 · Delaigue Olivier · 90311702 · 162a24b7
Commit 162a24b7 authored 6 months 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
@@ -106,7 +106,7 @@ CreateInputsModel <- function(FUN_MOD,
    }
    if (is.null(HypsoData)) {
      if (verbose) {
-        warning("'HypsoData' is missing: a single layer is used and no extrapolation is made")
+        warning("'HypsoData' is missing: a single layer is used and no extrapolation is made", call. = FALSE)
      }
      HypsoData <- as.numeric(rep(NA, 101))
      ZInputs   <- as.numeric(NA)