Nothing
.onUnload <- function(libpath) {
# Force finalize() on AbstractFileArray objects
base::gc();
} # .onUnload()
.onLoad <- function(libname, pkgname) {
ns <- getNamespace(pkgname);
pkg <- Package(pkgname);
assign(pkgname, pkg, envir=ns);
} # .onLoad()
.onAttach <- function(libname, pkgname) {
pkg <- get(pkgname, envir=getNamespace(pkgname));
startupMessage(pkg);
}
############################################################################
# HISTORY:
# 2014-02-21
# o Added .onUnload() which calls the garbage collector.
# 2013-01-05
# o Added .onLoad().
# 2011-07-23
# o Added a namespace to the package.
############################################################################
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.