.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:
# 2013-10-24
# o Updated .onLoad()/.onAttach().
# 2011-07-24
# o Added a namespace to the package.
############################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.