Nothing
hc <-
function (x, y, r, nsteps = 900, ...)
{
rs <- seq(-0.75, pi * 1.25, len = nsteps)
xc <- x + r * cos(rs)
yc <- y + r * sin(rs)
hcr <- data.frame(x = xc, y = yc)
graphics::lines(hcr[, 1], hcr[, 2], ...)
graphics::par(new = FALSE)
}
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.