Nothing
cl_tabulate <-
function(x)
{
values <- unique(x)
counts <- tabulate(match(x, values))
## Still a bit tricky to create a data frame with a list "column"
## which is not protected by I(); otherwise, we oculd simply do
## data.frame(values = I(values), counts = counts)
out <- data.frame(values = double(length(values)), counts = counts)
out$values <- values
out
}
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.