Nothing
labit <- function(x, y, bold=FALSE, sep=" ")
{
if(bold)
output <- bquote(paste(bold(.(x)), .(sep), italic(.(y))))
else
output <- bquote(paste(.(x), .(sep), italic(.(y))))
output <- as.expression(output)
return(output)
}
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.