使用R软件包lubridate'；时，如何将秒数舍入到2位；s秒到周期功能？

我使用R软件包Lubridate的函数将秒转换为

DD:HH:MM:SS

格式。现在我有一个巨大的时间列表，它看起来像这样->

2d7h 1M 5.31500000000233S

。我需要将秒数四舍五入到小数点后两位。
我尝试使用

round\u date

和

ymd\u hms

但在as.POSIXct.numeric（x）中收到此

错误：必须提供“origin”

。我尝试过是否可以单独访问秒数，并编写一个函数来更改秒数，但没有成功。我怎样才能解决这个问题

---

附加duration.RData文件和durdata.R文件作为参考数据。两个文件具有相同的数据，但一个使用dput（），另一个使用save（）。链接：

我们可以使用

round

设置“Period”对象中小数点的格式

head(round(time, 2))
#[1] "2d 7H 1M 5.32S"   "1d 9H 20M 37.49S" "7H 39M 37.95S" "2d 5H 0M 41.01S" 
#    "1d 8H 32M 2.8S"   "6H 36M 25.19S" 

---

@我添加了一些数据。当然@RonakShah.wow。那很容易。谢谢@RonakShah