sstfile <- system.file("extdata/sst.tif", package = "vapour")
lr <- lazyraster(sstfile)
test_that("quadmesh from lazyraster works", {
expect_s3_class(quadmesh(lr), "mesh3d")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.