library(oce)
data(topoWorld)
coarse <- oce::decimate(topoWorld, by=4)
topo2 <- coarse[["z"]]
save(topo2, file="topo2.rda")
tools::resaveRdaFiles("topo2.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.