# TODO: Add comment
#
# Author: Giorgio
###############################################################################
#adding a startup message
#for future version, should test : if(verbose <- getOption("verbose"))
.onAttach <- function(libname, pkgname) {
desc <- packageDescription(pkgname, libname)
packageStartupMessage('Package: ', desc$Package, '\n',
'Version: ', desc$Version, '\n',
'Date: ', desc$Date, '\n',
'BugReport: ', desc$BugReports, '\n\n')
}
# for unloading dynamic libraries
.onUnload <- function (libpath) {
library.dynam.unload("mbbefd", libpath)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.