# Recognize gatherings format
gatherings_format <- function (x) {
gtab <- gatherings_table()
# Majority vote
names(which.max(apply(gtab, 2, function (i) {sum(x %in% i)})))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.