Update R/arc-select.R

Author: JosiahParry

R/arc-select.R

@@ -631,7 +631,12 @@ supports_pbf <- function(x, arg = rlang::caller_arg(x), call = rlang::caller_cal
   )
   # 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"]]