Normalize days in month back to day limit for a given month

Normalize days in month back to day limit for a given month

Usage

normalize_month_day(x)

Arguments

x

a vector of parttime objects with days which may exceed viable days of month

Value

a vector of partial_time objects with normalized days of the month

Examples

x <- as.parttime(c("2019", "2019-02-31", "2019-01-05", "2016-02-31", "2016-01-05"))
parttime:::normalize_month_day(x)
#> <partial_time<YMDhms+tz>[5]> 
#> [1] "2019"       "2019-02-28" "2019-01-05" "2016-02-29" "2016-01-05"