fix: font instruction issue with PDF and quarto

fix #625

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: flextable
 Type: Package
 Title: Functions for Tabular Reporting
-Version: 0.9.6.006
+Version: 0.9.6.007
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "david.gohel@ardata.fr"),

NEWS.md

@@ -12,6 +12,7 @@ loops or `if` statements.
 ## Issues
 
 - fix issue with `as_image()` when the table contains no text.
+- fix font instruction issue with PDF and quarto
 
 # flextable 0.9.5
 

R/latex_str.R

@@ -432,6 +432,11 @@ get_pdf_engine <- function() {
   rd <- grep("--pdf-engine", pandoc_args)
   if (length(rd)) {
     engine <- pandoc_args[rd + 1]
+  } else if (is_in_quarto()) {
+    engine <- rmarkdown::metadata$`pdf-engine`
+    if (is.null(engine) || engine == "") {
+      engine <- "xelatex"
+    }
   } else {
     engine <- "pdflatex"
   }

tests/testthat/test-latex.R

@@ -7,3 +7,25 @@ test_that("white spaces are protected", {
   str <- flextable:::gen_raw_latex(ft)
   expect_true(grepl("{\\ }", str, fixed = TRUE))
 })
+
+
+test_that("fonts are defined in latex", {
+  gdtools::register_liberationsans()
+  ft <- flextable::flextable(head(cars, n = 1)) |>
+    flextable::font(fontname = "Liberation Sans", part = "body")
+
+  # R Markdown with pdflatex
+  knitr::opts_knit$set("quarto.version"=NULL)
+  latex_str <- flextable:::gen_raw_latex(ft, quarto = FALSE)
+  expect_no_match(latex_str, regexp = "Liberation Sans", fixed = TRUE)
+
+  knitr::opts_knit$set("rmarkdown.pandoc.args"= c("--pdf-engine", "xelatex"))
+  latex_str <- flextable:::gen_raw_latex(ft, quarto = FALSE)
+  expect_match(latex_str, regexp = "Liberation Sans", fixed = TRUE)
+  knitr::opts_knit$set("rmarkdown.pandoc.args"= NULL)
+
+  # quarto
+  knitr::opts_knit$set("quarto.version"=1)
+  latex_str <- flextable:::gen_raw_latex(ft, quarto = TRUE)
+  expect_match(latex_str, regexp = "Liberation Sans", fixed = TRUE)
+})