Nothing
outlet <- function(map,out,radius = 2) {
## TODO: plot this as values with coordinates
i <- out[1]
j <- out[2]
return(map[(i-radius):(i+radius),(j-radius):(j+radius)])
}
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.