Nothing
`%$$%` <- function(x, y) {
ylab <- deparse(substitute(y))
xlab <- deparse(substitute(x))
if(!ylab %in% names(x)) {stop("Element '", ylab, "' is not defined in list '",xlab,"'")}
do.call(.Primitive("$"), list(x, ylab))}
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.