Nothing
ternary.apply <-
function(grid, f, ...)
{
f = match.fun(f)
abc = grid[,letters[1:3]]
g = function(i) f(abc[i,], ...)
unlist(lapply(1:nrow(grid), g))
}
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.