tests/testthat/test-get_feature_id.R

In MatthewJWhittle/getarc: An R Wrapper for the ArcGIS Rest API

endpoint <-
  "https://services.arcgis.com/JJzESW51TqeY9uat/arcgis/rest/services/Special_Protection_Areas_England/FeatureServer/0"
fids <- get_feature_ids(endpoint = endpoint)$objectIds

fid_query <-
  get_feature_ids(
    endpoint = endpoint,
    query = list(resultRecordCount = 1, where = "Shape__Area < 100")
  )$objectIds


small_feature <-
  query_layer(endpoint,
              query = list("where" = where_in_query("OBJECTID", fid_query),
                                  resultRecordCount = 1))


test_that("get feature ids works", {
  expect_equal(is.vector(fids),
               TRUE)
  expect_equal(length(fids) > 1, TRUE)
  expect_equal(length(fid_query), 1)
  expect_equal(small_feature$Shape__Area < 100, TRUE)
  expect_equal(nrow(small_feature), 1)
})