Update R/arc-select.R

Author: JosiahParry

R/arc-select.R

@@ -625,7 +625,12 @@ validate_page_size <- function(
 supports_pbf <- function(x, arg = rlang::caller_arg(x), call = rlang::caller_call()) {
   # verify that x is an layer
   # FIXME: This check makes arc_select error on ImageServer inputs
-  obj_check_layer(x, arg, call)
+  check_inherits_any(
+    x,
+    class = c("FeatureLayer", "Table", "ImageServer"),
+    arg = arg,
+    call = call
+  )
 
   # extract supported query formats
   query_formats_raw <- x[["supportedQueryFormats"]]