rastercano <- raster(volcano)
polycano <- rasterToPolygons(r %/% 15, dissolve = TRUE)
names(polycano) <- "volcano_elevation"
devtools::use_data(rastercano, compress = "bzip2", overwrite = TRUE)
devtools::use_data(polycano,compress = "xz", overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.