# zzz.R
#
# Package startup and unload functions
.onLoad <- function(libname, pkgname) {
# # Make list of package parameters and add to global options
#
# # filepath of logfile
# optRpt <- list(rpt.logfile = logFileName() )
#
# # add more options ...
# optRpt[["nameOfOption"]] <- value
#
# optionsToSet <- !(names(optRpt) %in% names(options()))
#
# if(any(optionsToSet)) {
# options(optShi[optionsToSet])
# }
invisible()
}
.onAttach <- function(libname, pkgname) {
# Startup message
m <- character()
m[1] <- "\nWelcome to pointszr.\n"
packageStartupMessage(paste(m, collapse=""))
}
# .onUnload <- function(libname, pkgname) {
#
# }
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.