从星期一开始，时间以秒为单位存储在R中

Question

在lubridate软件包中，hms是存储为从00:00:00开始的秒数的时间。因此，如果您运行as.hms(85)，它将返回"00:01:25"。我想拥有同样的东西，但是存储为自星期一00:00:00以来的秒数。因此，我想使用一个函数as.day_of_week_hms()，这样，如果您运行as.day_of_week_hms(85)，它将返回"Monday 00:01:25"。我更喜欢tidyverse解决方案，因为我喜欢这种“生态系统”的理念！谢谢。