Nothing
findbars <-
function (term)
{
if (is.name(term) || !is.language(term))
return(NULL)
if (term[[1]] == as.name("("))
return(findbars(term[[2]]))
if (!is.call(term))
stop("term must be of class call")
if (term[[1]] == as.name("|"))
return(term)
if (length(term) == 2)
return(findbars(term[[2]]))
c(findbars(term[[2]]), findbars(term[[3]]))
}
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.