Nothing
histochart <- function(x, data=NULL, box.ratio=100, origin=0,
horizontal=FALSE, ...)
{
barchart(x, data, box.ratio=box.ratio, origin=origin,
horizontal=horizontal, ...)
}
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.