tests/testthat/testdata/test-data-prep.R

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

wfs <- emodnet_init_wfs_client(service = "human_activities")

attr_desc <- layer_attribute_descriptions(wfs, layer = "maritimebnds")
testthis::use_testdata(attr_desc, overwrite = TRUE)


maritime_crs <- get_layer_default_crs(
  layer = "maritimebnds",
  wfs,
  output = "crs"
)
testthis::use_testdata(maritime_crs, overwrite = TRUE)