KableExtra超文本标记语言样式在Rmarkdown和kable_save（）

Question

这困扰我太久了，我很感激你的帮助。我一直在为kable投入时间，但它并没有像我希望的那样对我产生效果。我希望创建多组行，如图所示

执行此操作的代码如下：

collapse_rows_dt <- expand.grid( District = sprintf('District %s', c('1', '2')), City = sprintf('City %s', c('1', '2')), State = sprintf('State %s', c('a', 'b')), Country = sprintf('Country with a long name %s', c('A', 'B'))
)
collapse_rows_dt <- collapse_rows_dt[c("Country", "State", "City", "District")] 
collapse_rows_dt$C1 = rnorm(nrow(collapse_rows_dt)) 
collapse_rows_dt$C2 = rnorm(nrow(collapse_rows_dt))

kbl(collapse_rows_dt, booktabs = T, align = "c", linesep = '') %>%
collapse_rows(1:3, row_group_label_position = 'stack')

这显然不够好。如果我织成pdf，我可以得到正确的输出（第一张图片），但仅此而已。如果我尝试执行save_kable（），结果显示为HTML格式，如第二幅图像所示。每次都编织成pdf格式是如此不切实际，如果我不能解决这个问题，我就不能再使用kable了。这对我来说很重要。

如果我设置format='latex ',那么内联中不会显示任何内容，当我尝试kable_save()时，我会得到以下错误消息:

这是 Xtex 版本 3.（tex live 2020/w32Tex） 预加载格式 = xlatex） 受限制 \write18 启用。进入扩展模式

接着是一个提示我的弹出消息（R崩溃）

R会话中止，R遇到致命错误

所有不需要乳胶的 HTML 表都会以适当的方式内联显示，并将保存为实际图像。

相关的最新包:

-     library(webshot) 
      library(tinytex) (also tried without)
      library(magick) 
      library(plyr) 
      library(tidyverse) 
      library(dplyr)
      library(knitr) 
      library(skimr) 
      library(kableExtra)

另外：

• Ghostscript 9.52是当前的并设置为环境
• Miktext 2.9

尝试过:

>

通过install.packages更新图像Magick（magick

• 编辑策略。ImageMagick中的xls以绕过安全功能ImageMagick安全策略“PDF”阻止转换

手动安装以下乳胶包

• 库（tinytex）tlmgr_install（pkgs='独立'）tlmgr_install（pkgs='预览'）tlmgr_install（pkgs='多语言'）tlmgr_install（pkgs='xltxtra'）tlmgr_install（pkgs='realscript'）

将混合曲面设置为环境路径

Answer 1

如果要编织并包含通过 LaTeX 和 PDF 生成的图像，则可以使用 kableExtra：：as_image

---
output: html_document
---

```{r}
library(kableExtra)
library(magrittr)

collapse_rows_dt <- expand.grid( District = sprintf('District %s', c('1', '2')), City = sprintf('City %s', c('1', '2')), State = sprintf('State %s', c('a', 'b')), Country = sprintf('Country with a long name %s', c('A', 'B'))
)

collapse_rows_dt <- collapse_rows_dt[c("Country", "State", "City", "District")] 
collapse_rows_dt$C1 = rnorm(nrow(collapse_rows_dt)) 
collapse_rows_dt$C2 = rnorm(nrow(collapse_rows_dt))

kbl(collapse_rows_dt, "latex", align="c", linesep="", booktabs = T) %>%
  collapse_rows(1:3, row_group_label_position = 'stack') %>%
  kable_styling(latex_options = c("striped", "scale_down")) %>%
  as_image()
```