SetValueDate <- function(date) {
assign(x = ".valueDate",
value = ymd(date),
envir = .GlobalEnv)
}
ValueDate <- function() {
get(x = ".valueDate",
envir = .GlobalEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.