Nothing
context("test layer load")
avail <- available_layers()
fn_names <- avail$layer_name[!(avail$local) &
!grepl("cded_", avail$layer_name)]
# Only test bec and tsa once in a while - they're really big
fn_names <- setdiff(fn_names, c("bec", "tsa"))
test_that("All sf layer function work without error and returns an sf object.", {
skip_on_cran()
skip_if_offline()
for (i in seq_along(fn_names)) {
# cat("\n", fn_names[i]) #for debugging
expect_error(layer <- match.fun(fn_names[i])(ask = FALSE), NA)
expect_is(layer, "sf")
expect_equal(attr(layer, "sf_column"), "geometry")
expect_true(all(sf::st_is_valid(layer)))
expect_equal(st_crs(layer)$wkt, st_crs("EPSG:3005")$wkt)
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.