Nothing
exhaustive <- function(cond, x, ...){
out <- exfaith(cond, x, num = FALSE)[, "exhaustiveness", drop = FALSE]
setNames(as.vector(out), rownames(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.