##' @export
as.character.RasterLayer <- function(x, ...) {
paste0("RasterLayer (nrow:", raster::nrow(x), "; ncol:",
raster::ncol(x), "; res:",
paste0(round(raster::res(x), 3), collapse=","),")")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.