Shiny 如何使用rmarkdown将带有嵌入图像的表格格式化为pdf格式？

我已经编写了一个脚本来生成一个

rmarkdown

报告，当以

kable

格式输出到pdf格式时，该报告将包含数字结果的QR码附加到数据帧中（请参阅我的相关文章）。QC代码作为图像向量生成，并在生成报告时附加到数据帧中的新列

这很好，但是要以.pdf格式输出表，我必须设置

kable（df，format=“markdown”）

，否则二维码的图像不会被放置在输出表中，而只是文件路径文本。这很好，除非我想使用kableExtra格式选项修改表，该选项要求

kable

格式为

latex

在我下面列出的示例代码中，您可以看到当

kable（df，format=“markdown”）

图像格式正确，但

kableExtra

格式不起作用。相反，当

kable（df，format=“latex”）

时，

kableExtra

格式选项起作用，但图像不起作用

---
title: "QR Code in Column"
author: "me"
date: "2019/01/20"
output: pdf_document

---

```{r mychunk, echo = FALSE, fig.path =  "qr/", results = 'asis', fig.show='hide'}
library(knitr)
library(qrcode)
library(kableExtra)

df <- data.frame(test = LETTERS[1:2],
                 result = as.character(round(rnorm(2), 2)),                    
                 stringsAsFactors = F)

res.qr <- lapply(df$result, function(qr) {
  qrcode_gen(qr)                 # create qrcodes
  nrow(qr)                       # save number of rows of df
})

path <- paste0(opts_current$get("fig.path"), opts_current$get("label"), "-")

total <- 0
df$Code <- paste0("![](", path, (1:length(res.qr)) + total, ".pdf){width=72px}")

```

```{r echo = FALSE}

# This example works to generate the desired output, but the kableExtra options won't work.
kable(df, format = "markdown") %>%
  add_header_above(c(" ", "Class 1" = 2))

```

```{r echo = FALSE}

# This example works to use the kableExtra formatting options, but the QR Code isn't an image.
kable(df, format = "latex") %>%
  add_header_above(c(" ", "Class 1" = 2))

```

---
标题：“栏中的二维码”
作者：“我”
日期：“2019/01/20”
输出：pdf\U文件
---
```{r mychunk，echo=FALSE，fig.path=“qr/”，results='asis'，fig.show='hide'}
图书馆（knitr）
图书馆（qrcode）
图书馆（kableExtra）
df