R - 如何获得两点之间耗时？

Question

我试过使用 Sys.time获取两点之间耗时。但是，它不会以我喜欢的方式输出。

这是它现在的样子:

a <- Sys.time
...running stuff between these two points...
b <- Sys.time
c <- b - a
c
Time difference of 1.00558 hours

我只想要数字和单位。我知道要获得我可以做的数字:

c[[1]]

然而，有时 c的结果可以给我几秒钟或几分钟。我只想要我有数字和单位以小时为单位的实例。有没有人知道使用 Sys.time() (或任何替代方法)可以得到类似以下内容的方法:

if (units == "hours")
{
  if (number => 1)
  {
      #do something
  }
}

Answer 1

使用 difftime基数 R 允许您获得不同单位的时间差。休息是格式化。

a = Sys.time()
Sys.sleep(5)    #do something
b = Sys.time()    
paste0(round(as.numeric(difftime(time1 = b, time2 = a, units = "secs")), 3), " Seconds")
#[1] "5.091 Seconds"