Merge pull request #4749 from quarto-dev/R-working-dir

Author: cderv

src/execute/rmd.ts

@@ -195,9 +195,9 @@ async function callR<T>(
   outputFilter?: (output: string) => string,
   reportError = true,
 ): Promise<T> {
-  // establish cwd for execute (the current dir if there is an renv
+  // establish cwd for our R scripts (the current dir if there is an renv
   // otherwise the project dir if specified)
-  const cwd = withinActiveRenv() ? undefined : projectDir;
+  const cwd = withinActiveRenv() ? Deno.cwd() : projectDir ?? Deno.cwd();
 
   // create a temp file for writing the results
   const resultsFile = Deno.makeTempFileSync(
@@ -208,6 +208,7 @@ async function callR<T>(
     action,
     params,
     results: resultsFile,
+    wd: cwd,
   });
 
   try {

src/resources/rmd/rmd.R

@@ -137,6 +137,11 @@
   request <- jsonlite::parse_json(input, simplifyVector = TRUE)
   params <- request$params
 
+  # Ensuring expected working dir for Quarto
+  # R process workding may be changed by some workflows (in  ~/.Rprofile)
+  # https://github.com/quarto-dev/quarto-cli/issues/2646
+  setwd(request$wd) # no need to reset it as R process is closed by R
+
   # source in helper functions if we have a resourceDir
   if (!is.null(params$resourceDir)) {
     res_dir <- file.path(params$resourceDir, "rmd")