library(raster)
library(raster) swissAlti3D <- raster("sample_data/SWISSALTI3D_10_TIFF_CHLV95_LN02_2600_1196.tif")
swissAlti3D
plot(swissAlti3D)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.