<p>doMC 패키지와 함께 진행률 표시줄?</p>

아니면 병렬 패키지? 그렇지 않은 경우 이 기능에 대해 +1합니다.

솔직히 말해서 이것을 구현하려면 무엇이 필요한지 잘 모르겠습니다. 예를 들어 병렬의 경우 이미 수행된 작업의 양을 다시 전달하기 위해 병렬이 필요합니다. 그게 가능할까요?

@gaborcsardi 나는 약간의 검색을했고 다음은 내가 찾은 것입니다.

library("foreach")
library("doParallel")
library("progress")

registerDoParallel(parallel::makeCluster(7, outfile = ""))

pb <- progress_bar$new(
            format = " [:bar] :percent in :elapsed",
            total = 30, clear = FALSE, width = 80, force = T)
a <- foreach (i  = 1:30) %dopar% {
    pb$tick()
    Sys.sleep(0.5)
}


pb <- txtProgressBar(title = "Iterative training", min = 0, max = 30, style = 3)

foreach (i  = 1:30) %dopar% {
    setTxtProgressBar(pb, i)
    Sys.sleep(0.5)
}

stopCluster(cl)

txtProgressBar 는 stype이 2 또는 3일 때만 작동합니다. 함수 매뉴얼에 따르면:

style = 1 및 style = 2는 char 한 줄만 표시합니다. 스타일이 다릅니다 = 2는 매번 라인을 다시 그립니다. 이는 다른 코드가 R 콘솔에 기록될 수 있는 경우에 유용합니다. style = 3은 |로 범위의 끝을 표시합니다. 막대 오른쪽에 백분율을 제공합니다.

txtProgressBar 작동하는 이유는 클러스터를 만드는 동안 outfile = "" 이 존재하기 때문이라고 생각합니다.

스타일 2에 대해 txtProgressBar 가 하는 것을 모방하면 이 문제가 해결될 것이라고 생각합니다.