Nothing
#' @importFrom backports import
#' @keywords internal
.onLoad <- function(libname, pkgname) {
backports::import(pkgname, "isFALSE")
# set default cache behaviors
opts <- Filter(Negate(is.null), Map(function(i) i$default(), cache_behaviors))
names(opts) <- sprintf("riskmetric.%s", names(opts))
opts <- opts[!names(opts) %in% names(options())]
do.call(options, as.list(opts))
# set default options
opts <- riskmetric.options
names(opts) <- sprintf("riskmetric.%s", names(opts))
opts <- opts[!names(opts) %in% names(options())]
do.call(options, as.list(opts))
# if non-interactive, cache package sources on load
if (!interactive()) {
memoise_available_packages()
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.