Nothing
outline.buffer <- function(buffer) {
if (!is(buffer,'bathy')) stop("'buffer' must be a buffer of class bathy")
buffer[!is.na(buffer)] <- -1
buffer[is.na(buffer)] <- 0
return(buffer)
}
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.