Nothing
InBox <- function(x, y, xmin, xmax, ymin, ymax) {
result = FALSE
if ((x >= xmin) & (x <= xmax) & (y >= ymin) & (y <= ymax))
result = TRUE
return(result)
}
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.