reformat using air

Author: cderv

R/render.R

@@ -51,9 +51,9 @@
 #'   advanced usage and useful for CLI arguments which are not yet mirrored in a
 #'   dedicated parameter of this \R function. See `quarto render --help` for options.
 #' @param pandoc_args Additional command line arguments to pass on to Pandoc.
-#' @param libpaths A character vector of library paths to use for the R session run by Quarto. 
-#'   If `NULL`, no library paths will be pass to quarto subprocess and defaults R one will be used. 
-#'   Setting `options(quarto.use_libpaths = FALSE)` will disable this behavior and 
+#' @param libpaths A character vector of library paths to use for the R session run by Quarto.
+#'   If `NULL`, no library paths will be pass to quarto subprocess and defaults R one will be used.
+#'   Setting `options(quarto.use_libpaths = FALSE)` will disable this behavior and
 #'   never pass library paths to quarto subprocess.
 #' @param as_job Render as an RStudio background job. Default is `"auto"`,
 #'   which will render individual documents normally and projects as

tests/testthat/test-quarto.R

@@ -124,6 +124,28 @@ test_that("quarto.quiet options controls echo and overwrite function argument",
   })
 })
 
+test_that("quarto sees same libpaths as main process", {
+  skip_if_no_quarto()
+  skip_on_cran()
+  qmd <- local_qmd_file(c("```{r}", "#| echo: false", ".libPaths()", "```"))
+  tmp_lib <- withr::local_tempdir("tmp_libpath")
+  withr::local_libpaths(tmp_lib, action = "prefix")
+  withr::local_dir(dirname(qmd))
+  out <- "out.md"
+  # .libPaths() is known in Quarto render
+  out <- .render_and_read(qmd, output_format = "gfm")
+  expect_match(out, basename(tmp_lib), all = FALSE, fixed = TRUE)
+  # Opting-out globally
+  withr::with_options(
+    list(quarto.use_libpaths = FALSE),
+    out <- .render_and_read(qmd, output_format = "gfm")
+  )
+  expect_no_match(out, basename(tmp_lib), fixed = TRUE)
+  # Opting-out at command
+  out <- .render_and_read(qmd, output_format = "gfm", libpaths = NULL)
+  expect_no_match(out, basename(tmp_lib), fixed = TRUE)
+})
+
 test_that("quarto_available()", {
   expect_error(
     quarto_available("1.5", "1.4"),