Nothing
is_spec <- function(x) {
return(("justifierSpec" %in% class(x)) || length(names(x)) > 1);
}
is_ref <- function(x) {
return(("justifierRef" %in% class(x)) || ((length(names(x)) == 0) && (is.character(x))));
}
is_nested <- function(x) {
return(is.list(x) && any(unlist(lapply(x, is.list))));
}
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.