Nothing
Collapse.CH <-
function (ch = ch$ch_split)
{
ch_vec = apply(ch, 1, paste, collapse = "")
ch = data.frame(ch = ch_vec)
ch["ch"] = as.character(ch$ch)
return(ch)
}
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.