fix flextable_to_rmd() issue with images in pdf

fix #651
davidgohel · Aug 14, 2024 · 0603608 · 0603608
1 parent e29a47d
commit 0603608
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: flextable
 Title: Functions for Tabular Reporting
-Version: 0.9.7.006
+Version: 0.9.7.007
 Authors@R: c(
     person("David", "Gohel", , "[email protected]", role = c("aut", "cre")),
     person("ArData", role = "cph"),

diff --git a/NEWS.md b/NEWS.md
@@ -8,6 +8,7 @@
 - fix broken internal links in PDF file, probably due to a change in knitr or 
 rmarkdown (issue #632)
 - fix right outer border issue in grid format (issue #650)
+- fix `flextable_to_rmd()` issue with images in pdf (issue #651)
 
 # flextable 0.9.6
 

diff --git a/R/printers.R b/R/printers.R
@@ -103,7 +103,11 @@ flextable_to_rmd <- function(x, ...) {
     tmp_file,
     useBytes = TRUE)
 
-  z <- knit_child(input = tmp_file, envir = environment(), quiet = TRUE)
+  z <- knit_child(
+    input = tmp_file,
+    options = list(fig.path=tempfile()),
+    envir = environment(), quiet = TRUE)
+
   cat(z, sep = '\n')
 
   invisible("")