如何从 POSIXct 对象获取原点

我有一个像这样的函数：

foo = function(time_in){
    # code here that changes POSIXct to numeric
    time_out = as.POSIXct(time_in, origin = '1970-01-01')
}

用户输入的位置time_in作为 POSIXct 对象。我在线性模型中使用这个参数（lm()）它将我的值以数字形式返回。最后，我想将其转换回我的用户的 POSIXct 对象。问题是，as.POSIXct()需要一个origin通常是 UTC 时间 1970 年 1 月 1 日。但是，如果我的用户在不同的来源工作怎么办？我怎样才能从中提取起源time_in用它作为论据time_out?

我寻找过有关如何获取原点的文档，但是str(time_in) and attributes(time_in)不要给我任何东西，我还没有找到更多东西。由于这将位于一个包中，因此我想坚持使用基本 R 函数来限制所需的依赖项数量。