.onLoad <- function(libname, pkgname) {
op <- options()
op.reutils <- list(
reutils.api.key = NULL,
reutils.email = "gerhard.schofl@gmail.com",
reutils.show.headlines = 12,
reutils.verbose.queries = FALSE,
reutils.test.remote = FALSE,
reutils.rcurl.connecttimeout = 10
)
toset <- !(names(op.reutils) %in% names(op))
if (any(toset)) {
options(op.reutils[toset])
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.