Nothing
pasteColums <-
function(x, sep = " & ")
{
b <- x[, 1]
if(ncol(x) > 1){
for(i in 2:ncol(x)){
a <- x[, i]
b <- paste(b, a, sep = sep)
}
}
b
}
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.