Nothing
a_get_relative <-
function(x, y){
coords <-par('usr')
dinps <-par('pin')
xr <- abs(diff(coords[1:2]))
yr <- abs(diff(coords[3:4]))
xtox <- dinps[1]/dinps[2]
x <- (x-coords[1])/xr
y <- (y-coords[3])/yr
x <- x*xtox
cbind(x, y)
}
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.