在 R 中获取自纪元以来的天数、月数和周数

Question

在 R 中获取自纪元时间以来的天数、月数和周数的最佳方法是什么？

（Java 存在一个解决方案：获取自 Java 纪元以来的天数、周数和月数）

我知道从纪元获取秒数，但如何获取周数？

as.integer( Sys.time())   #.... gives number of seconds since epoch time

Answer 1

一种选择是用作lubridate::interval：

library(lubridate)


span <- interval(ymd_hms("1970-01-01 00:00:00"), Sys.time())

as.period(span, unit = "days")
#[1] "17622d 19H 57M 10.5912010669708S"

as.period(span, unit = "months")
#[1] "579m 0d 19H 57M 10.5912010669708S"


as.period(span, unit = "years")
#[1] "48y 3m 0d 19H 57M 10.5912010669708S"