Nothing
chooseByPriority <- function(x, choice_order){
# Choose the lowest ocurring member of x according to
# choice_order
choice_order[min(which(choice_order %in% x))]
}
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.