自代码发布以来的时间运行

Time since the code has been running

r
systemtime

以下代码显示总代码运行时间：虚拟代码；

require(tictoc)
require(svMisc)
tic()
y<-NA
for(i in 1:1000000){
  progress(i)
  x<-sample(rnorm(1000),1)
  y[i]<- sqrt(x)
}
max(y, na.rm = T)
toc()

我只想在控制台上看到运行ning 时间（秒表），无需等待代码运行完成，类似于使用svMisc包在控制台上显示的代码完成百分比。由于一些奇怪的 rstudio 崩溃，我无法使用任何基于 utils 或 profvis 包的分析方法。

尝试

start <- Sys.time()
for (i in 1:10) {
    elapsed <- difftime(Sys.time(), start, units = "secs")
    cat(sprintf("\r%1.0f seconds elapsed", elapsed))
    Sys.sleep(1)
}
cat("\n")