我有这样的功能：

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函数来限制所需的依赖项数量 .

r datetime posix posixct