进度条在foreach设置中不起作用

Question

我在Ubuntu系统中有以下foreach设置，我需要有一个进度条来监控进度。

library(doMC)
registerDoMC(cores=detectCores()-1)
total <- 9000
# create progress bar
pb <- txtProgressBar(min = 0, max = total, style = 3)
respar <- foreach(i = 1:total, .combine = rbind)%dopar%{
  setTxtProgressBar(pb, i)
  i**3
}
close(pb)

但是，上面的实现不起作用，但respar中的输出是预期的。如果这种方法有问题，请你评论一下吗？

注意：问题是在这种创建进度条的方法中识别错误。其他类似的问题没有涉及创建进度条的背景设置组合。