Nothing
# A function to "identify" points in a "point" object...
# This function allows the user to identify points graphically.
assign("identify.point",
function(x,v="",...) {
v <- x[[match(v,names(x))]]
if(!is.null(v))
identify(x$x,x$y,v,...)
else
identify(x$x,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.