Nothing
.onLoad <- function(libname, pkgname) {
# Set options
op <- options()
op.rplexos <- list(
rplexos.tiebreak = "last",
rplexos.debug = FALSE,
rplexos.process_on_the_fly = FALSE
)
toset <- !(names(op.rplexos) %in% names(op))
if(any(toset)) options(op.rplexos[toset])
# By default, turn off parallel queries
assign("rplexos_globals", new.env(), envir=parent.env(environment()))
if (!"cluster" %in% ls(rplexos_globals))
assign("cluster", NULL, rplexos_globals)
start_parallel_rplexos(1, TRUE)
invisible()
}
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.