Nothing
test_that("layer_spatial() works as intended", {
skip_if_not_installed("vdiffr")
load_longlake_data(which = c("longlake_roadsdf", "longlake_waterdf", "longlake_depthdf"))
expect_doppelganger(
"layer_spatial()",
ggplot() +
layer_spatial(longlake_roadsdf, size = 1, col = "black") +
layer_spatial(longlake_roadsdf, size = 0.8, col = "white") +
layer_spatial(longlake_waterdf, fill = "lightblue", col = NA) +
layer_spatial(longlake_depthdf, aes(col = DEPTH_M))
)
expect_doppelganger(
"shadow_spatial()",
ggplot() +
shadow_spatial(longlake_roadsdf) +
shadow_spatial(longlake_waterdf) +
layer_spatial(longlake_depthdf, aes(col = DEPTH_M))
)
expect_doppelganger(
"annotation_spatial()",
ggplot() +
annotation_spatial(longlake_roadsdf, size = 1, col = "black") +
annotation_spatial(longlake_roadsdf, size = 0.8, col = "white") +
annotation_spatial(longlake_waterdf, fill = "lightblue", col = NA) +
layer_spatial(longlake_depthdf, aes(col = DEPTH_M))
)
# sp objects converted to sf
expect_true(inherits(layer_spatial(suppressWarnings(as(longlake_depthdf, "Spatial")), aes(col = DEPTH_M)), "list"))
expect_true(inherits(layer_spatial(longlake_depthdf, aes(col = DEPTH_M)), "list"))
})
test_that("3D sp data can be used with layer_spatial()", {
spoints <- sp::SpatialPoints(
matrix(c(0, 0, 1, 1, 1, 0), nrow = 2, byrow = TRUE),
proj4string = sp::CRS("+proj=longlat +datum=WGS84 +no_defs +type=crs")
)
expect_silent(ggplot() + layer_spatial(spoints))
})
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.