filename <- system.file(
"extdata", "MG_CC_sub_norm_testclip.tif", package="rsar")
b <- raster::brick(filename)
m <- rsar::brick_to_matrix(b)
b2 <- rsar::matrix_to_brick(m)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.