R/upper_threshold_date.R

Defines functions upper_threshold_date

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)
}
frandiego/covidTracker documentation built on May 4, 2020, 9:23 a.m.