自代码运行以来的时间

Question

以下代码显示了总代码运行时间： 伪代码；

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()

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

Answer 1

试试

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")