diff --git a/R/pkg/inst/worker/daemon.R b/R/pkg/inst/worker/daemon.R index 6e385b2a2762..618fbabcefe9 100644 --- a/R/pkg/inst/worker/daemon.R +++ b/R/pkg/inst/worker/daemon.R @@ -90,6 +90,7 @@ while (TRUE) { } } p <- parallel:::mcfork() + if (inherits(p, "masterProcess")) { # Reach here because this is a child process. close(inputCon)