fix: check for numerical metric

PhenoFish · Apr 30, 2024 · d1c2b7e · d1c2b7e
1 parent 73fa467
commit d1c2b7e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/ggmap_marine.R b/R/ggmap_marine.R
@@ -71,6 +71,11 @@ ggmap_marine <- function(data, metric, title = NULL,
 
   error_if_field_not_in_df(data, metric)
 
+  if (!is.numeric(data[ , metric, drop = TRUE])) {
+    stop("The column '", metric, "' in 'data' must be `numeric`", 
+         call. = FALSE)
+  }
+
   if (!is.null(title)) {
     error_if_not_character(title)
     error_if_not_length_of(title, 1)