将润滑周期对象从 DD:HH:MM:SS 舍入到 HH:MM:SS

rounding lubridate period objects from DD:HH:MM:SS to HH:MM:SS

我有一个聚合列,其中包含以下形式的润滑周期对象

sum_times
1d 15H 25M 0S

我希望它采用 HH:MM:SS 形式,这意味着如果小时数超过 24,我不想在我的格式中有天数,而是继续计算小时数。看起来像这样的东西

sum_times
39H 25M 0S

下面的示例应该会带您走向正确的方向:

span <- interval(ymd_hms("2009-01-01 00:00:00"), ymd_hms("2010-02-02 01:01:01")) #interval
as.period(span, unit = "hour")
[1] "9529H 1M 1S"
as.period(span, unit = "day")
[1] "397d 1H 1M 1S"