Nothing
#Function to capture selected points
checkBounds <- function(bounds, fname) {
if (length(bounds$x) < 2) warning(paste0("Bounding box not recorded for ", fname))
if (length(bounds$x) > 26) warning(paste0("Only first 26 points used for ", fname))
points <- utils::head(as.data.frame(bounds),26)
return(points)
}
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.