Add tests for quarto, with pdflatex engine

NAMESPACE

@@ -278,6 +278,7 @@ importFrom(htmltools,htmlEscape)
 importFrom(htmltools,save_html)
 importFrom(htmltools,tagList)
 importFrom(htmltools,tags)
+importFrom(jsonlite,read_json)
 importFrom(knitr,asis_output)
 importFrom(knitr,fig_path)
 importFrom(knitr,include_graphics)
@@ -329,6 +330,7 @@ importFrom(officer,table_width)
 importFrom(officer,to_html)
 importFrom(officer,to_rtf)
 importFrom(officer,to_wml)
+importFrom(quarto,quarto_version)
 importFrom(ragg,agg_png)
 importFrom(rlang,call_args)
 importFrom(rlang,enquo)

R/latex_str.R

@@ -26,11 +26,9 @@ list_latex_dep <- function(float = FALSE, wrapfig = FALSE) {
     return(list())
   }
 
-  is_quarto <- is_in_quarto()
-
   fonts_ignore <- flextable_global$defaults$fonts_ignore
   fontspec_compat <- get_pdf_engine() %in% c("xelatex", "lualatex")
-  if (!is_quarto && !fonts_ignore && !fontspec_compat) {
+  if (!fonts_ignore && !fontspec_compat) {
     warning("fonts used in `flextable` are ignored because ",
       "the `pdflatex` engine is used and not `xelatex` or ",
       "`lualatex`. You can avoid this warning by using the ",
@@ -43,7 +41,7 @@ list_latex_dep <- function(float = FALSE, wrapfig = FALSE) {
 
   x <- list()
 
-  if (fontspec_compat || is_quarto) {
+  if (fontspec_compat) {
     x$fontspec <- latex_dependency("fontspec")
   }
   x$multirow <- latex_dependency("multirow")
@@ -433,11 +431,24 @@ get_pdf_engine <- function() {
   if (length(rd)) {
     engine <- pandoc_args[rd + 1]
   } else if (is_in_quarto()) {
-    engine <- rmarkdown::metadata$`pdf-engine`
+    quarto_v <- quarto::quarto_version()
+    if (quarto_v >= "1.8.0") {
+      # Modern and recommended way to retrieve metadata, from https://github.com/quarto-dev/quarto-cli/discussions/13371
+      quarto_metadata <- jsonlite::read_json(
+        Sys.getenv("QUARTO_EXECUTE_INFO")
+      )
+      # engine <- quarto_metadata$format$pandoc$`pdf-engine` -> this field is never empty
+      engine <- quarto_metadata$format$metadata$format$pdf$`pdf-engine` # this field has a value only if the yaml key `pdf-engine` is explicitly mentionned
+    } else {
+      # Old trick for calling metadata, only works if the rendering engine is knitr (and not jupyter)
+      quarto_metadata <- rmarkdown::metadata
+      engine <- quarto_metadata$format$pdf$`pdf-engine`
+    }
     if (is.null(engine) || engine == "") {
       engine <- "xelatex"
     }
   } else {
+    # Default pdf-engine for RMarkdown
     engine <- "pdflatex"
   }
   engine

tests/testthat/qmd/use-printer-with-pdflatex.qmd

@@ -0,0 +1,69 @@
+---
+title: "Pdflatex not working with flextable"
+engine: knitr
+format:
+  pdf: 
+    pdf-engine: pdflatex # tectonic, latexmk, xelatex, lualatex
+    keep-tex: true
+---
+
+
+```{r}
+#| label: setup
+
+library(flextable)
+
+
+# different ways to access quarto metadata ----
+## Many things listed in quarto_metadata, like default options, but not the current options used in the yaml
+quarto_metadata <- knitr::opts_current$get()
+saveRDS(quarto_metadata, "./quarto_metadata.rds")
+
+## Only works for quarto version beyond 1.8, but lots of nice execution operations
+quarto_metadata_second_way <- jsonlite::read_json(
+  Sys.getenv("QUARTO_EXECUTE_INFO"))
+# two ways to reach the pdf-engine
+all.equal(quarto_metadata_second_way$format$pandoc$`pdf-engine`, 
+          quarto_metadata_second_way$format$metadata$format$pdf$`pdf-engine`)
+saveRDS(quarto_metadata_second_way, "./quarto_metadata_second_way.rds")
+
+## This command returns exactly the yaml of the header, great!! :-)
+rmarkdown_metadata <- rmarkdown::metadata
+saveRDS(rmarkdown_metadata, "./rmarkdown_metadata.rds")
+
+## Returns only the output file
+rmarkdown_pandoc_args <- knitr::opts_knit$get("rmarkdown.pandoc.args")
+saveRDS(rmarkdown_pandoc_args, "./rmarkdown_pandoc_args.rds")
+
+## programamtic ways to run qmd, or Rmd scripts ----
+# rmarkdown::render("./tests/testthat/qmd/use-printer-with-pdflatex.qmd",
+#                   output_format = c("pdf_document"),
+#                   output_file = "C:/Users/basti/OneDrive/04. BNCL (Post Doc)/Open-Source Development/flextable/tests/testthat/qmd/use-printer-with-pdflatex.qmd")
+# quarto::quarto_render("./tests/testthat/qmd/use-printer-with-pdflatex.qmd")
+```
+
+
+- `flextable` with Equations, see @tbl-flextable:
+
+```{r}
+#| label: tbl-flextable
+
+
+eqs_flextable <- c(
+    "(ax^2 + bx + c = 0)",
+    "a \\ne 0",
+    "x = {-b \\pm \\sqrt{b^2-4ac} \\over 2a}")
+df <- tibble::tibble(`Y \\sim W` = eqs_flextable)
+
+
+ft <- flextable(df) |>
+  compose(j = 1, part = "header",
+          value = as_paragraph(as_equation(`Y \\sim W`, width = 2, height = .5)),
+          use_dot = TRUE) |>
+  compose(j = 1, part = "body",
+          value = as_paragraph(as_equation(`Y \\sim W`, width = 2, height = .5))) |>
+  align(align = "center", part = "all")
+
+ft
+
+```