.onLoad <- function(libname, pkgname) {
op <- list(SL_start = as.Date("2013-03-24"),
SL_duration = 93,
SL_epoch_levels = c("nig","mor","aft","eve"),
SL_epoch_ubs = c(6, 12, 18, 24),
SL_uids = 0:59,
SL_timezone = "EST")
toset <- !(names(op) %in% names(options()))
if(any(toset)) options(op[toset])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.