fix: flextable_to_rmd() issue with local chunk eval option

fix #631

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: flextable
 Title: Functions for Tabular Reporting
-Version: 0.9.7.007
+Version: 0.9.7.008
 Authors@R: c(
     person("David", "Gohel", , "[email protected]", role = c("aut", "cre")),
     person("ArData", role = "cph"),

NEWS.md

@@ -9,6 +9,7 @@
 rmarkdown (issue #632)
 - fix right outer border issue in grid format (issue #650)
 - fix `flextable_to_rmd()` issue with images in pdf (issue #651)
+- fix `flextable_to_rmd()` issue with local chunk `eval` option (issue #631)
 
 # flextable 0.9.6
 

R/printers.R

@@ -92,9 +92,9 @@ flextable_to_rmd <- function(x, ...) {
   x <- knitr_update_properties(x, bookdown = is_bookdown, quarto = is_quarto)
 
   if (is_quarto) {
-    tmp_file <- tempfile(fileext = ".Rmd")
-  } else {
     tmp_file <- tempfile(fileext = ".qmd")
+  } else {
+    tmp_file <- tempfile(fileext = ".Rmd")
   }
 
   writeLines(
@@ -105,7 +105,10 @@ flextable_to_rmd <- function(x, ...) {
 
   z <- knit_child(
     input = tmp_file,
-    options = list(fig.path=tempfile()),
+    options = list(
+      fig.path=tempfile(),
+      eval = isTRUE(knitr::opts_current$get("eval"))
+    ),
     envir = environment(), quiet = TRUE)
 
   cat(z, sep = '\n')