Nothing
mid.in <- function(x,y,rx,ry) {
xm <- 0.5*(x[1]+x[2])
ym <- 0.5*(y[1]+y[2])
(rx[1] < xm & xm < rx[2] & ry[1] < ym & ym < ry[2])
}
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.