getTable = function(vars, varsLevels){
vars = data.frame(vars)
for (i in 1:ncol(vars)){
vars[,i] = factor(vars[,i], levels = varsLevels[[i]])
}
return(data.frame(table(vars))$Freq)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.