From 92a815c2635742da2aa9f9097657ecb2ddc35b1e Mon Sep 17 00:00:00 2001
From: Rich FitzJohn <r.fitzjohn@imperial.ac.uk>
Date: Tue, 24 Sep 2024 14:29:33 +0100
Subject: [PATCH] Don't change the environment

---
 R/runner-callr.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/runner-callr.R b/R/runner-callr.R
index edb9dc98..f926184c 100644
--- a/R/runner-callr.R
+++ b/R/runner-callr.R
@@ -34,10 +34,9 @@ monty_runner_callr <- function(n_workers, progress = NULL) {
       return()
     }
     chain_id <- pending[[1]]
-    r_env <- c(callr::rcmd_safe_env(), MONTY_PROGRESS_SIMPLE = "TRUE")
     env$sessions[[session_id]] <- callr::r_bg(
       function(id, path) monty::monty_sample_manual_run(id, path, "simple"),
-      list(chain_id, env$path), env = r_env)
+      list(chain_id, env$path))
     env$target[[session_id]] <- chain_id
     env$status[[chain_id]] <- "running"
   }