R/cluster.R

In ecos-umons/extractoR: R packages metadata extractor

InitCluster <- function(logger, logfile, n=4) {
  cl <- makeCluster(n, type="PSOCK", outfile="")
  clusterExport(cl, list(logfile="logfile"), envir=environment())
  clusterCall(cl, function() {
    logging::basicConfig()
    logging::addHandler(writeToFile, logger=logger, file=logfile)
  })
  cl
}