yearquarter = function(date) {
# Return midpoint of quarter of date
fakemonth = floor((month(date)-1) / 3) * 3 + 2
return(ymd(paste(year(date), fakemonth, "15")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.