.onLoad <- function(...) {
op <- options()
op.linelist <- list(
linelist_guess_orders = list(
world_named_months = c("Ybd", "dby"),
world_digit_months = c("dmy", "Ymd"),
US_formats = c("Omdy", "YOmd")
)
)
toset <- !names(op.linelist) %in% names(op)
if (any(toset)) options(op.linelist[toset])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.