r语言 - 自代码运行以来的时间

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