parallel

library(Ipaper)

InitCluster(4)
cl = getOption("cl")

library(parallel)

# 加载共享函数
clusterEvalQ(cl, {
  library(Ipaper)
})
# parallel::clusterExport(cl, )

foreach(i = icount(10)) %dopar% {
  runningId(i)
}