r studio中while循环的进度条

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)
 }
close(pb)