upper_threshold_date <- function(x){
m_ <- which(tolower(month.abb) == tolower(x))
d_ <- m_*100+01 + 20200000
dd_ <- as.Date(as.character(d_),'%Y%m%d')
dd_ + base::months(1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.