Get the Status and Trends week that a date falls into

date_to_st_week(dates)

Arguments

dates

a vector of dates.

Value

An integer vector of weeks numbers from 1-52.

Examples

d <- as.Date(c("2016-04-08", "2018-12-31", "2014-01-01", "2018-09-04"))
date_to_st_week(d)
#> [1] 14 52  1 36