lubridate，POSIXlt / POSIXct，必须提供原点

Question

我正在创建一个小功能。到目前为止，它仍然有效，但是我想提高效率（几个月的长度不同），所以我想使用软件包lubridate。 当我使用它时，它说：

Error in as.POSIXlt.numeric(x, tz = tz(x)): 
'origin' must be supplied

但是数据已经有来源！

有解决方案吗？

我的代码：

zins2018$Datum <- as.POSIXlt(zins2018$Datum, format="%d.%m.%Y", origin="2013-01-01")

Datum_neu <- data$Datum + week(1)

错误：

Error in as.POSIXlt.numeric(x, tz = tz(x)) : 'origin' must be supplied

如果我使用month(1)，则不会产生错误，而是会增加1秒。.