Nothing
tribox <-
function(...)
{
lx = 2 / sqrt(3)
tribox = cbind(c(0, lx / 2, lx), c(0, 1, 0))
polygon(tribox, ...)
}
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.