From c30df9700fe5a73e9038e66623b89fc33cc16c64 Mon Sep 17 00:00:00 2001
From: wlandau-lilly <will.landau@lilly.com>
Date: Wed, 25 Oct 2017 15:33:05 -0400
Subject: [PATCH] Stop using `outfile` in parLapply parallelism

We give up console output for parLapply parallelism,
but it was a hack anyway (HenrikBengtsson/future#171).
The output could not be captured by capture.output()
---
 R/parLapply.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/parLapply.R b/R/parLapply.R
index f844316e4..b7871737b 100644
--- a/R/parLapply.R
+++ b/R/parLapply.R
@@ -4,9 +4,7 @@ run_parLapply <- function(config) { # nolint
     run_lapply(config = config)
     return(invisible())
   }
-  outfile <- ifelse(config$verbose, "",
-    "/dev/null") # nolint
-  config$cluster <- makePSOCKcluster(config$jobs, outfile = outfile)
+  config$cluster <- makePSOCKcluster(config$jobs)
   clusterExport(cl = config$cluster, varlist = "config",
     envir = environment())
   if (identical(config$envir, globalenv()))