get_arcgisonline_layers.R

library(sf)
library(arcgislayers)

con <- arc_open("https://gis.blm.gov/nlsdb/rest/services/Fluid_Minerals/Oil_Gas_Leases_Production_Status/MapServer/0")

ccng_bd <- st_read("T:\\FS\\NFS\\PSO\\MPSG\\2024_CimarronComancheNG\\1_PreAssessment\\Data\\Shapefiles\\CimarronComancheNG_AdminBdy.shp") |>
  st_transform(con$sourceSpatialReference$wkid)

ccng_data <- arc_select(con, filter_geom = st_bbox(ccng_bd), page_size = 200)

st_write(ccgn_data, "whatever/output/path/you/want.gpkg")