fix class handling to allow tibble

ropensci · Feb 8, 2024 · 5cac7bc · 5cac7bc
1 parent 48309aa
commit 5cac7bc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/vertmap.R b/R/vertmap.R
@@ -52,7 +52,7 @@
 vertmap <- function(input = NULL, mapdatabase = "world", region = ".", 
                     geom = geom_point, jitter = NULL) {
 
-  if (!class(input) %in% c("list", "data.frame")) {
+  if (!inherits(input, c("list", "data.frame"))) {
     stop("Input must be of class list or data.frame", call. = FALSE)
   }
 

diff --git a/R/yyy.R b/R/yyy.R
@@ -3,7 +3,7 @@ sw <- function(x) suppressWarnings(x)
 
 vertsumwrapper <- function(input = NULL, verbose = TRUE){
 
-  if (!class(input) %in% c("list", "data.frame")) {
+  if (!inherits(input, c("list", "data.frame"))) {
     stop("Input must be of class list or data.frame", call. = FALSE)
   }
   if (inherits(input, "list"))  input <- input$data