Merge pull request #11337 from quarto-dev/knitr/rscript-args

Add QUARTO_KNITR_RSCRIPT_ARGS to pass some flags to RScript for knitr engine

Author: cscheid

src/execute/rmd.ts

@@ -272,11 +272,19 @@ async function callR<T>(
     wd: cwd,
   });
 
+  // QUARTO_KNITR_RSCRIPT_ARGS allows to pass additional arguments to Rscript as comma separated values
+  // e.g. QUARTO_KNITR_RSCRIPT_ARGS="--vanilla,--no-init-file,--max-connections=258"
+  const rscriptArgs = Deno.env.get("QUARTO_KNITR_RSCRIPT_ARGS") || "";
+  const rscriptArgsArray = rscriptArgs.split(",").filter((a) =>
+    a.trim() !== ""
+  );
+
   try {
     const result = await execProcess(
       {
         cmd: [
           await rBinaryPath("Rscript"),
+          ...rscriptArgsArray,
           resourcePath("rmd/rmd.R"),
         ],
         cwd,

tests/smoke/render/render-required.test.ts

@@ -114,7 +114,7 @@ export function outputForInput(
     if (baseFormat === "revealjs") {
       outputExt = "html";
     }
-    if (["commonmark", "gfm", "markdown"].some((f) => f === baseFormat)) {
+    if (["commonmark", "gfm", "markdown", "markdown_strict"].some((f) => f === baseFormat)) {
       outputExt = "md";
     }
     if (baseFormat === "csljson") {
@@ -189,4 +189,5 @@ export function fileLoader(...path: string[]) {
 // On Windows, `quarto.cmd` needs to be explicit in `execProcess()`
 export function quartoDevCmd(): string {
   return Deno.build.os === "windows" ? "quarto.cmd" : "quarto";
-}
+}
+