r - 如何将 difftime 转换为字符串 "X hours Y minutes Z seconds"

Question

我想将 difftime 对象打印为字符串，例如“X 小时 Y 分钟 Z 秒”。

所以不是打印，例如“1.034167 小时”我想看到“1 小时 2 分 3 秒”。

library(hms)
difftime(hms(11, 02, 03), hms(10, 00, 00))
Time difference of 3.033611 hours

magicfunction(difftime(hms(11, 02, 03), hms(10, 00, 00)))
1 hour 2 minutes 3 seconds

Answer 1

如果 units 为 seconds

，则转换为 period 可能更容易

library(lubridate)
seconds_to_period(difftime(hms::hms(11, 02, 03), 
       hms::hms(10, 00, 00), units = 'sec'))