Wrap in render() in Rscript_call() to isolate env session

epiverse-trace · May 3, 2024 · f6e5a9b · f6e5a9b
1 parent 8e2a1de
commit f6e5a9b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,7 +18,8 @@ BugReports: https://github.com/epiverse-trace/episoap/issues
 Imports: 
     renv (>= 0.13.0),
     rmarkdown,
-    withr
+    withr,
+    xfun
 Suggests: 
     knitr,
     spelling,

diff --git a/R/run_pipeline.R b/R/run_pipeline.R
@@ -50,9 +50,10 @@ run_pipeline <- function(
       package = "episoap",
       edit = FALSE
     )
-    rmarkdown::render(
-      paste0(r, ".Rmd"),
-      params = list(...)
+    # We run in a new session the prevent renv to leak in the user's environment
+    xfun::Rscript_call(
+      rmarkdown::render,
+      list(input = paste0(r, ".Rmd"), params = list(...))
     )
   }, character(1))