Nothing
case <- function(x, ..., default=NA)
{
magic <- "....default...."
alternatives <- c(..., "....default...."=magic)
x <- as.character(x)
retval <- factor(x, levels=alternatives, labels=names(alternatives))
levels(retval)[length(alternatives)] <- as.character(default)
retval[is.na(retval) & !is.na(x)] <- default
retval
}
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.