.onLoad <- function(...) {
op <- options()
op.incidence <- list(incidence.max.days = 18262,
incidence.warn.first_date = TRUE)
toset <- !names(op.incidence) %in% op
if (any(toset)) options(op.incidence[toset])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.