Nothing
build.subtable <-
function(table, column1, column2, separator='///') {
resultTable = c()
indexNonEmpty = grep('.+', table[[column2]])
for(i in indexNonEmpty) {
values = unlist(strsplit(as.character(table[i,column2]), separator))
resultTable = rbind(resultTable, cbind(table[i, column1], values))
}
resultTable = data.frame(resultTable, stringsAsFactors=F)
colnames(resultTable) = c(column1, column2)
return(resultTable)
}
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.