Nothing
`varNamesToChar` <-
function (varnam)
{
tmp2 <- ""
tmp1 <- strsplit(varnam, ", ")[[1]]
for (i in 1:length(tmp1)) {
tmp2 <- paste(tmp2, tmp1[[i]], "\", \"", sep = "")
}
return(tmp2)
}
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.