make_element <- function(x, .f, ...){
date_test <- function(date){
.f(date, ...) == x
}
out <- list(date_test = date_test)
class(out) <- "schedule"
out$n_terms <- 1
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.