r - 更改 RMarkdown 代码输出中错误消息的颜色(HTML、PDF)

Question

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

---
title: ""
---

#### Example 1

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

#### Example 2

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

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

Answer 1

1。使用针织钩

首选解决方案是使用错误输出 Hook :

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

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

<小时/>

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

这是我使用 jQuery/Javascript 的“快速而肮脏”的解决方案。只需将其添加到 YAML header 下方即可。可能不是万无一失的，因为它使用字符串“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>