Nothing
isEmpty <- function (obj)
{
if (!isS4(obj)) {
if (length(obj) > 0)
FALSE
else TRUE
}
else {
if (identical(obj, new(class(obj)[1])))
out <- TRUE
else {
empty <- sapply(slotNames(obj), function(s) {
if (isS4(slot(obj, s)))
isEmpty(slot(obj, s))
else {
if (length(slot(obj, s)) == 0)
TRUE
else if (length(slot(obj, s)) > 0)
FALSE
}
})
out <- !any(!empty)
}
out
}
}
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.