进度栏在r工作室的循环

Question

我希望在循环运行时看到进度条。我有一个包含300,000个变量的数据集并且需要永远。我想使用像“进步”这样的功能或包。显示循环将花多长时间。使用下面的代码是可能的。

           i <- 1
           while (i <= nrow(df)) {
           if (is.na.data.frame(df$case_no[i]))
           df$case_no[i] <- df$case_number[i]
            i <- i + 1
            }

Answer 1

可以这样做

x <- rep(x = NA, times = 100)

pb <- txtProgressBar(0, length(x), style = 3)
for(i in 1:length(x)) {
   setTxtProgressBar(pb, i)
   x[i] 
   Sys.sleep(time = 1)
 }