在R中将日期转换为纳秒

Question

我试图将r中的日期转换为纳秒。我尝试使用润滑包，但不成功。

dateval <- c("2016-06-29")

任何帮助都是感激的!

谢谢。

Answer 1

使用microbenchmark包。该包返回执行某项操作所需时间的基准，以达到较高的精度。在包内，它们有一个以纳秒为单位返回当前时间的函数

microbenchmark::get_nanotime()
[1] 3.610932e+14
microbenchmark::get_nanotime()
[1] 3.610952e+14
microbenchmark::get_nanotime()
[1] 3.610958e+14
microbenchmark::get_nanotime()
[1] 3.610963e+14

或者，如果精度变得不那么重要，可以使用

as.numeric(as.POSIXct(TIMEA)) - as.numeric(as.POSIXct(TIMEB))

Answer 2

设置:

require(lubridate)
dateval  <- c("2016-06-29")
dateeval <- ymd(dateval)

纳秒是国际单位制的时间单位，等于十亿分之一秒。

以纳秒为单位的历元和日期之间的时间差(因为日期没有时间戳，所以是近似值):

difftime(dateeval, Sys.time(), units = "secs")
abs(as.numeric(difftime(ymd("1970-01-01"),dateeval, units = "secs")))*1000000000
[1] 1.467158e+18