Nothing
plot.buffer <- function(x, outline = TRUE, add = TRUE, ...) {
buffer <- x # S3 compatibility
if (!is(buffer,'buffer')) stop("'buffer' must be an object of class bathy as produced by create.buffer()")
ll <- list(...)
if (outline) {
symbols(buffer[[2]], circles = buffer[[3]], add = add, inches = F, ...)
} else {
plot.bathy(buffer[[1]], add=add, ...)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.