check.is.spatial <- function(data) {
is.spatial <- FALSE
slots <- slotNames(data)
if (class(data) != "data.frame" && "data" %in% slots
&& "bbox" %in% slots && "proj4string" %in% slots) {
is.spatial <- TRUE
}
return(is.spatial)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.