tests/testthat/test-map-services.R

In arcgislayers: An Interface to ArcGIS Data Services

test_that("map servers can be opened", {
  nhd <- file.path(
    "https://hydro.nationalmap.gov",
    "arcgis/rest/services",
    "NHDPlus_HR",
    "MapServer"
  )

  nhd_srv <- arc_open(nhd)
  expect_snapshot(nhd_srv)

})


test_that("layers can be retrieved from mapserver's", {

  nhd <- file.path(
    "https://hydro.nationalmap.gov",
    "arcgis/rest/services",
    "NHDPlus_HR",
    "MapServer"
  )

  nhd_srv <- arc_open(nhd)

  expect_no_error(get_layer(nhd_srv, 0))
  expect_no_error(get_layers(nhd_srv, id = c(0, 2)))

})