r - foreach dopar ループ内でプロットする

Question

次のモック例を検討してください。

library(foreach)
library(doParallel)
cl <- makeCluster(3)
registerDoParallel(cl)

pdf("mypdf.pdf", width = 8, height = 8)
layout(matrix(c(1,2,3,4), nrow=2, byrow=TRUE), heights = c(1,1))

result <- foreach(i=1:10000) %dopar% {
    if(i %in% c(5,10,15,20)) {plot(i)}
    i + 2
}

dev.off()

これが私がやろうとしていることです: のためiに1:10000、私は戻りたいですi+2。そして、iが5、10、15、20に等しい場合、その点iをpdfにプロットしたいと思います。すべてのプロット (4 つのプロット) を同じ pdf にする必要があります。

単純なforループで、これは機能します。ただし、並列計算ではうまくいかないようです。

何か案は？

ありがとう！