Nothing
.joptions <- function(...) {
l <- list(...)
if (length(l)==0) return(list())
if ("jni.cache" %in% names(l)) {
v <- l[["jni.cache"]]
if (!is.logical(v) || length(v)!=1)
stop("jni.cache must be a logical vector of length 1")
.C(RuseJNICache,v)
invisible(NULL)
}
}
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.