if (requireNamespace("raster", quietly = TRUE)) {
r <- raster::raster(system.file("external/test.grd", package = "raster"))
print(r)
## Marshal
r_ <- marshal(r)
## Unmarshal
r2 <- unmarshal(r_)
print(r2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.