Nothing
RSarrow <-
function(X1,Y1,X2,Y2){
targetindex<-dev.cur()
targetindex<-recordPlot()
arrows(x0=X1,x1=X2,y0=Y1,y1=Y2)
u<-readline("accept line? (y/n) ")
if (u=="n")
{replayPlot(targetindex)}
}
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.