tests/testthat/test-vendor-params.R

In EMODnet/EMODnetWFS: Access 'EMODnet' Web Feature Service data through R

test_that("vendor param count works", {
  skip_if_offline()
  wfs <- create_biology_wfs()
  l_data <- emodnet_get_layers(
    wfs = wfs,
    layers = "mediseh_zostera_m_pnt",
    count = 1L, simplify = TRUE
  )

  expect_identical(nrow(l_data), 1L)
})