"print.asc" <- function(x, ...)
{
## Verifications
if (!inherits(x, "asc")) stop("Non convenient data")
## The output
cat("Raster map of class \"asc\":\n")
cat("Cell size: ", attr(x, "cellsize"), "\n")
cat("Number of rows: ", ncol(x), "\n")
cat("Number of columns: ", nrow(x), "\n")
cat("Type: ", attr(x, "type"), "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.