R/get_week_of_month.R

Defines functions get_week_of_month

get_week_of_month <- function(x){
  
  (- lubridate::wday(x) + lubridate::day(x)) %/% 
    7 + 1 +
    ifelse(lubridate::wday(lubridate::floor_date(lubridate::as_date(x), "month")) == 1, 0, 1)
  
}
EvaMaeRey/ggcalendar documentation built on Sept. 6, 2024, 6:54 a.m.