From f33972695afc8ff60887ddd8d3933b773f4a0a2a Mon Sep 17 00:00:00 2001
From: Josiah Parry <josiah.parry@gmail.com>
Date: Tue, 23 Jul 2024 21:15:17 -0400
Subject: [PATCH] Update R/arc-select.R

---
 R/arc-select.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/arc-select.R b/R/arc-select.R
index d9e31e8..901fb57 100644
--- a/R/arc-select.R
+++ b/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"]]