Nothing
"%w/o%" <- function(x, y) x[!x %in% y] #-- x without y
"%innc%" <- function(x, y) (tolower(x) %in% tolower(y)) # a nocase version of %in%
"%==nc%" <- function(x, y) (tolower(x) == tolower(y)) # a nocase version of ==
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.