让flextable编织成PDF

Question

当我只想在我的pdf里放几张漂亮的桌子时，我感觉自己像掉进了兔子洞。说来话长，这里是：

我想把一些表格从r markdown打印成PDF。我通常使用Kable，它工作得很好。也就是说，这个表将有一些非常长的值，并且生成的列的数量是未知的，当我还不知道kable时，我很难指定哪一列的宽度。不管怎么说，这让我想到了flextable。

当我针织成html时，表格看起来很棒，如下所示：

​

但是我在编织pdf文件时遇到了麻烦。通过其他堆栈答案，我了解到flextable需要保存为要绘制为pdf的图像。所以我有这样的代码：

ft <- flextable(x)
ft <- autofit(ft)
tf <- tempfile(fileext = ".png")
## Not run: 
if( require("webshot2") ){
 save_as_image(x = ft, path = "myimage.png")
}

plot(tf)

但一开始它给我的错误是我没有webshot2包，所以在遇到一些问题后我安装了它(它与我的R版本(我在rstudio.cloud上)不一致，然后当我现在尝试运行它时，它说

​

我是不是漏掉了什么明显的东西？如何将flextable保存为图像，然后将其打印到pdf中？

我在这里也尝试过Joanna的解决方案：Is it possible to generate the RTable (FlexTable) in pdf with RMarkdown?和r告诉我找不到函数"as.html“。即使flextable和htmltools都已加载。

附注：提供可复制的数据将是非常长的考虑到所有的代码，生成表和事实，我需要它编织成一个pdf，将提供rstudio.cloud链接，如果任何人感兴趣

Answer 1

你现在可以不需要webshot包(flextable >= 0.6.0)来制作PDF了：

---
title: "Untitled"
output: 
  pdf_document:
    latex_engine: xelatex
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(flextable)
```

```{r}
ft <- flextable(head(airquality))
ft <- autofit(ft)
theme_vader(ft)
```

​

​