period(c(90, 5), c("second", "minute"))
# 5 minutes and 90 seconds
period(-1, "days")
# -1 days
period(c(3, 1, 2, 13, 1), c("second", "minute", "hour", "day", "week"))
# 13 days, 2 hours, 1 minute and 3 seconds
period(c(1, -60), c("hour", "minute"))
# 1 hour and -60 minutes
period(0, "second")
# 0 seconds
Run the code above in your browser using DataLab