Merge pull request #429 from ropensci/gc

Use garbage collection in persistent scheduling
ropensci · Jun 22, 2018 · e4df333 · e4df333
2 parents 267f3c8 + e36f246
commit e4df333
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/mclapply.R b/R/mclapply.R
@@ -73,6 +73,7 @@ mc_worker <- function(worker, config){
   done_queue <- mc_get_done_queue(worker, config)
   while (TRUE){
     while (nrow(msg <- ready_queue$list(1)) < 1){
+      gc()
       Sys.sleep(mc_wait)
     }
     if (identical(msg$message, "done")){