Nothing
"origin" <-
function (m = c(0, 0), ...)
{
vx <- c(par("usr")[1],par("usr")[2])
vy <- c(m[2],m[2])
lines(vx,vy,...)
vy <- c(par("usr")[3],par("usr")[4])
vx <- c(m[1],m[1])
lines(vx,vy,...)
}
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.