индикатор выполнения не работает в настройке foreach

У меня есть следующая foreach настройка в системе Ubuntu, где мне нужно иметь индикатор выполнения для отслеживания прогресса.

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 соответствует ожиданиям. Не могли бы вы прокомментировать, если что-то не так с этим подходом?

Примечание. Вопрос в том, чтобы определить ошибку в этом подходе к созданию индикатора выполнения. Другие подобные вопросы не касались этой комбинации фоновой настройки для создания индикатора выполнения.


person Prradep    schedule 01.11.2017    source источник
comment
comment
Подход может быть таким же. Не могли бы вы указать, почему этот фрагмент не работает? Я хочу знать, что мешает отображению индикатора выполнения во время выполнения, но не код для создания индикатора выполнения.   -  person Prradep    schedule 02.11.2017
comment
Вероятно, ваш индикатор выполнения появится, но во всех других параллельных сеансах, а не в основном.   -  person F. Privé    schedule 02.11.2017