etopo <- pastclim:::load_etopo()
reclass = rbind(c(0, Inf, NA))
etopo <- terra::classify(etopo, reclass)
etopo_patch <- terra::patches(etopo)
#terra::makeTiles(etopo,c(3,3),filename="etop_sub.tif")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.