.onLoad <- function(libname, pkgname) {
op.wbdata <- list(
wbdata.lang = "en",
wbdata.cache_dir = NULL,
wbdata.refresh_cache_on_load = FALSE,
wbdata.cache_life = as.difftime(7, units = "days"),
wbdata.cache_timestamp = NULL
)
# if the options are there, set them
op_to_set <- !(names(op.wbdata) %in% names(options()))
if(any(op_to_set)) options(op.wbdata[op_to_set])
check_refresh_on_load()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.