更改 RMarkdown 代码输出中错误消息的颜色（HTML、PDF）

有没有办法在 R Markdown 中自动将错误的文本颜色设置为红色，而无需稍后手动编辑 HTML。

---
title: ""
---

#### Example 1

```{r e1, error = TRUE}
2 + "A"
```

#### Example 2

```{r e2, error = TRUE}
2 + 2
```

在上面的代码中，输出Example 1必须是红色的。目前，我编辑生成的 HTML（添加style="color:red;"到适当的标签）但我想知道是否有一种自动方式。假设在编织之前不知道代码是否会产生错误。

1.使用针织钩

首选解决方案是使用输出钩子来处理错误：

```{r}
knitr::knit_hooks$set(error = function(x, options) {
  paste0("<pre style=\"color: red;\"><code>", x, "</code></pre>")
})
```

输出挂钩通常允许我们控制 R 代码不同部分的输出（整个块、源代码、错误、警告……）。详情请查看https://yihui.name/knitr/hooks/#output-hooks https://yihui.name/knitr/hooks/#output-hooks.

2. 使用 JS/jQuery 的快速而肮脏的解决方案

这是我使用 jQuery/Javascript 的“快速而肮脏”的解决方案。只需将其添加到 YAML 标头下方即可。 可能不是万无一失的，因为它使用字符串“Error”检查错误消息，这也可能发生在其他应用程序中。

<script type="text/javascript">
$(document).ready(function() {
  var $chks = $("pre:not(.r) > code");
  $chks.each(function(key, val) {
    cntnt = $(this).html();
    if (cntnt.indexOf("Error") != -1) {
      $(this).css('color', 'red');
    }
  })
})
</script>