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

Question

有没有办法在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;"添加到相应的标签），但我想知道是否有自动方式。假设在编织之前不知道代码是否会产生错误。

Answer 1

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。

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>

Answer 2

我在这里偶然发现是因为我有相同的问题，但对于PDF输出而不是HTML。

结合@Martin Schmelzer的解决方案，来自@Yihui Xie的一些提示发现here有助于在PDF输出中实现相同的行为。

将\usepackage{xcolor}添加到您的YAML标头，然后将以下块添加到.Rmd文件中。

```{r}
color_block = function(color) {
  function(x, options) sprintf('\\color{%s}\\begin{verbatim}%s\\end{verbatim}',
                               color, x)
}
knitr::knit_hooks$set(error = color_block('red'))
```

结果是红色错误消息，如