Nothing
buildIndTable <- function(counts){
ind.table <- cbind(c(1:length(counts)), counts)
colnames(ind.table) <- c("ID", "No.Obs")
return(ind.table)
}
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.