Rmarkdown 文件成功编织为 PDF，但从 R 调用时出错

Question

我写了一个 Rmarkdown 文件，它加载一些数据并生成一个很酷的 kableExtra 表，其中包含一些符号和自定义颜色和线条，并将其打印为 pdf。

当我打开 Rmarkdown 文件并编织时，它工作得很好，并产生我想要的确切输出。

我现在想使用一个 R 脚本来遍历数据的一些不同子集，为每个子集生成一个新表（和单独的输出 pdf）。所以，我需要从 .R 文件中调用我的 .Rmd 文件。

但是，当我执行此操作（使用该rmarkdown::render函数）时，会出现在 .Rmd 文件中直接编织时不会发生的错误。

下面是一个功能齐全的 .Rmd 文件，它类似于我在真实数据中使用的文件。我从第二个 R 脚本中调用它，行rmarkdown::render("table_creator.Rmd", pdf_document(latex_engine = "xelatex")).

我遇到的第一个错误是Error: Functions that produce HTML output found in document targeting latex output.. 我添加always_allow_html: yes到 .Rmd 文件的标题并重试。直接编织 .Rmd 文件再次工作正常。从 .R 脚本调用它现在会产生错误： ! Undefined control sequence. l.94 ...oup\fontsize{16}{18}\selectfont \textcolor [HTML]{ffde71}{$\bullet$}\...

在这一点上，我认为渲染发生的设置与我直接编织 .Rmd 文件时使用的设置不同。这几乎就像它没有解析 .Rmd 文件中的完整标头，但我不确定。我不知道如何在这一点上进行，并希望得到任何帮助。

---
title: ""
output:
  pdf_document:
    latex_engine: xelatex
header-includes:
- \usepackage[T1]{fontenc}
- \setmainfont{Helvetica}
- \DeclareTextCommand{\nobreakspace}{TU}{\leavevmode\nobreak\ }
---

```{r, echo=FALSE, message = FALSE, warning = FALSE}
# Packages
suppressMessages(library(kableExtra))
suppressMessages(library(dplyr))

table_info <- data.frame(Symbol = c("$\\bullet$", "$\\blacksquare$",
                                    "$\\blacklozenge$", "x", "+", "$\\bullet$"),
                         Name = letters[1:6],
                         Results = sample(c("good", "bad"), 6, replace = TRUE),
                         FontSize = c(16, 10, 11, 16, 16, 18),
                         Color = c("#ffde71", "#0c0000", "#0c0000", "#0c0000",
                                   "#0c0000", "#cb6f86"))

 ktable <- table_info %>%
     mutate(Symbol = cell_spec(Symbol, color = Color, 
                              font_size = FontSize,
                              escape = FALSE,
                              format = "latex")) %>%
    select(-Color, -FontSize) %>%
    kable(escape = FALSE, align = c("l", "l", "l"),
          booktabs = TRUE) %>%
    row_spec(1:5, hline_after = TRUE) %>%
    row_spec(1:6, color = "gray") %>%
    column_spec(1, "1.5em")

```

```{r, echo=FALSE}
ktable
```

编辑：附加上下文信息 sessionInfo() 的输出：

sessionInfo() R 版本 3.4.3 (2017-11-30) 平台：x86_64-apple-darwin17.3.0（64 位）运行于：macOS High Sierra 10.13.1

矩阵产品：默认BLAS：/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib LAPACK：/System/Library/Frameworks/Accelerate.framework/Versions/A /Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib

语言环境：[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

附加的基础包：[1] 统计图形 grDevices utils 数据集方法基础

其他附加包：[1] bindrcpp_0.2 dplyr_0.7.4 kableExtra_0.9.0 rmarkdown_1.9

通过命名空间加载（且未附加）：[1] Rcpp_0.12.15 rstudioapi_0.7 bindr_0.1 knitr_1.20 xml2_1.2.0
[6] magrittr_1.5 hms_0.4.2 rvest_0.3.2 munsell_0.4.31.3 virt .3-2 R6_2.2.2 rlang_0.1.6 plyr_1.8.4 stringr_1.2.0
[16] httr_1.3.1 tools_3.4.3 htmltools_0.3.6 yaml_2.1.18 assertthat_0.2.0 [21] rproj.6t2.1.1 rproj_2.1.1 阅读摘要1.1glue_1.2.0
[26]evaluate_0.10.1 stringi_1.1.6 compiler_3.4.3 pillar_1.1.0 scales_0.5.0
[31] backports_1.1.2 pkgconfig_2.0.1

Answer 1

我回到这个问题，因为我也遇到了非常相似的问题。问题是我能够手动编写 PDF，但是当我通过 R 中的脚本完成此操作后，我收到了错误Error in xml_children(x)[[search]] : subscript out of bounds。

我能够查明这是源于生产row_spec()中的所有内容kable，但在删除row_spec()调用后，我遇到了错误error: Functions that produce HTML output found in document targeting latex output.。

奇怪的是，这只发生在我项目的特定分支上 - 而不是主分支。但是，切换回主分支并没有解决问题。重新启动 R 就可以了。使问题进一步复杂化的是，如果我在主分支中启动 R，然后切换到开发分支，但没有自动重新获取所有内容，则不会出现错误。这表明错误位于开发分支的新脚本中的某个位置。

因此，我sessionInfo()通过主分支和开发分支调用了加载 R，发现在我的一个较新的脚本中，library(kableExtra)在引入所有其他包（包括kableExtra已经调用）后，我还有一个正在加载的附加脚本。由于某些奇怪的原因，这个额外的kableExtra调用还引入了virisdisLite和webshot，这两个包最初并不存在于初始kableExtra调用中。

一旦删除了额外的包library(kableExtra)，问题就解决了，两个额外的包virisdisLite不再被调用，并且pdfwebshot不再有任何问题。render()