# Week precision
x <- year_week_day(2019, 1, start = clock_weekdays$monday)
x
# Widen to day precision
# In this calendar, the first day of the week is a Monday
calendar_widen(x, "day")
# Or second precision
sec <- calendar_widen(x, "second")
sec
Run the code above in your browser using DataLab