r - R进度条基于给定的秒数

Question

我正在创建一个供不同用户使用的功能。由于该功能很长，我想根据秒数（由我估计）创建一个进度条，以便让用户相信代码正在运行。我的建议（基于在 stakoverflow 上找到的答案）。问题是我不知道如何将这个“200000”转换为秒。有什么帮助吗？

library(progress)


  total <- 200000
  # create progress bar
  pb <- txtProgressBar(min = 0, max = total, style = 3)
  for(i in 1:total){
    # update progress bar
    setTxtProgressBar(pb, i)
  }
  close(pb)

标签： rprogress-bar

Answer 1

这是另一种选择，使用Sys.sleep. 这将持续 7 秒。

library(progress)

secs <- 7
pb <- progress_bar$new(total = secs)
for (i in 1:secs) {
  pb$tick()
  Sys.sleep(1)
}

根据需要设置secs。