如何从POSIXct对象获取原点

Question

我有这样的功能：

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，通常是1970年1月1日UTC。但是，如果我的用户正在处理不同的来源呢？如何从time_in中提取原点以将其用作time_out的参数？

我已经找到了关于如何获得原点的文档，但是str(time_in)和attributes(time_in)没有给我任何东西，我还没有找到其他的东西。由于这将在一个包中，我希望坚持使用基本R函数来限制所需的依赖数。