Nothing
Circle <- function (radius = 1, origin = c(0, 0), col=1, ...)
{
t <- seq(-pi, pi, by = 0.01)
a <- origin[1]
b <- origin[2]
r <- radius
x <- a + r * cos(t)
y <- b + r * sin(t)
points(x, y, type = "l",col=col, ...)
}
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.