Include check message

TiagoOlivoto · Feb 11, 2020 · 9d2908d · 9d2908d
1 parent b276ad3
commit 9d2908d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/get_model_data.R b/R/get_model_data.R
@@ -843,6 +843,9 @@ get_model_data <- function(x,
     if (is.null(what)){
       what <- "WAAS"
     }
+    if (!what %in% c(check1, check2)) {
+      stop("Invalid value in 'what' for object of class '", class(x), "'. Allowed are ", paste(check1, collapse = ", "), call. = FALSE)
+    }
     if (what %in% check1 | what  %in% check2) {
       bind <- sapply(x, function(x) {
         x$model[[what]]