# Month precision
x <- year_month_weekday(2019, 1)
x
# Widen to day precision
# Note that this sets both the day and index to 1,
# i.e. the first Sunday of the month.
calendar_widen(x, "day")
# Or second precision
sec <- calendar_widen(x, "second")
sec
Run the code above in your browser using DataLab