Nothing
##==============================================================================
## plotcircle : plots (part of) a circle
##==============================================================================
plotcircle <- function (r=1, ...) {
user <- par("usr")
pin <- par("pin")
sy <- user[4] - user[3]
sx <- user[2] - user[1]
ry <- r * sy / sx * pin[1] / pin[2]
plotellipse(rx=r, ry=ry, ... )
}
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.