Nothing
is.what <- function(object, verbose=FALSE)
{
do.test <- function(test, object)
{
result <- try(get(test)(object), silent=TRUE)
if(length(result)!=1 || !is.logical(result) || is.na(result))
result <- NULL
result
}
## Get all names starting with "is."
is.names <- unlist(sapply(search(), function(name) ls(name,pattern="^is\\.")))
## Narrow to functions
is.functions <- is.names[sapply(is.names, function(x) is.function(get(x)))]
tests <- sort(unique(is.functions[is.functions!="is.what"]))
results <- suppressWarnings(unlist(sapply(tests, do.test, object=object)))
if(verbose)
output <- data.frame(is=ifelse(results,"T","."))
else
output <- names(results)[results]
output
}
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.