.onLoad <- function(libname, pkgname) {
# default package options
opts <-
c(
"icesSharePoint.username" = "NULL",
"icesSharePoint.messages" = "FALSE",
"icesSharePoint.site_collection" = "'https://community.ices.dk'",
"icesSharePoint.site" = "''",
"icesSharePoint.wd" = "''"
)
# set only those not previouslyt set
for (i in setdiff(names(opts), names(options()))) {
eval(parse(text = paste0("options(", i , "=", opts[i], ")")))
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.