seq_date <- function(begin, end, freq) {
begin <- begin
end <- end
i <- lubridate::interval(begin, end)
nb_pts <- floor(i / freq)
begin + 0:nb_pts * freq
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.