Nothing
RMtext <-
function(textx,x,y){
#targetindex<-dev.cur()
#targetindex<-recordPlot()
text(x,y,c(textx),cex=.9)
#u<-readline("accept text? (y/n) ")
#if (u=="n")
#{replayPlot(targetindex)}
#ab<-NULL
#ab<<-recordPlot()
}
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.