Время с момента запуска кода

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.Я не могу использовать какой-либо метод профилирования, основанный на утилитах или пакете profvis, из-за какого-то странного сбоя rstudio.

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