R 속도줄이기 3탄: 병렬(Parallel) 계산시 Progress bar 활용하기

[sl100104]

이미 병렬계산은 완성된 상태이므로 오늘은 Progress Bar를 추가하는 code를 소개할까 한다. 만일 하루종일 돌아가는 1000번의 bootstrap 등 코드를 돌릴 때 지금 어느 정도 돌아갔고 얼마가 남았을까를 안다는 것은 여러분들이 심장마비나 고혈압으로 고통받을 확률을 매우(?) 낮춰줄 수 있기 때문이다. 

아래의 자료에 다양한 방법들이 소개되고 있으니 여러분의 목적에 맞게 유용한 것을 찾아 적용하면 된다.

stackoverflow.com/questions/5423760/how-do-you-create-a-progress-bar-when-using-the-foreach-function-in-r

How do you create a progress bar when using the "foreach()" function in R?

그래고 다음은 실제로 돌려본 코드이다.

#준비작업

library(doSNOW)
library(foreach)


cl <- makeCluster(5) #여러분의CPU core숫자를 쓰세요, 가령 i7=12
registerDoSNOW(cl)

iterations <- 100
pb <- txtProgressBar(max = iterations, style = 3)
progress <- function(n) setTxtProgressBar(pb, n)
opts <- list(progress = progress)

# foreach 돌리기
result <- foreach(i = 1:iterations, .combine = rbind, 
                  .options.snow = opts) %dopar%
{
    s <- summary(rnorm(1e6))[3]
    return(s)
}
close(pb)

stopCluster(cl) 

아주 잘 돌아간다.....