library(raster)
library(rgdal)
lux <- shapefile(system.file("external/lux.shp", package="raster"))
devtools::use_data(lux, compress = "xz")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.