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