块选项class.output无法处理错误消息

Question

我正在准备课程的教程，我想将错误的颜色更改为红色。我使用BookDown和gitbook作为输出格式。但我发现选项class.output不起作用。我想在输出中为我得到的错误消息添加一个类。我怎样才能做到这一点？您可以将此作为示例：

---
title: "Test Book"
author: "therimalaya"
site: bookdown::bookdown_site
output: bookdown::gitbook
---

# Hello World

```{r, error = TRUE, class.output="red"}
rnorm(-10)
```

如果没有错误，这可以工作。

Answer 1

class.output不适用于错误（请参阅here）。 关于this answer，我建议你使用错误钩子：

```{r error-hook, echo=FALSE}
knitr::knit_hooks$set(error = function(x, options) {
  paste0(
    "```{", 
    ifelse(is.null(options$class.error), 
           "", 
           paste0(" .", gsub(" ", " .", options$class.error))
    ),
    "}\n",
    x,
    "\n```"
  )
})
```

现在，您可以在块中使用“新”class.error选项。

```{r, error = TRUE, class.error="red"}
rnorm(-10)
```

随意打开功能请求here。

Answer 2

将自定义CSS类用于错误，警告和消息的能力是just added to knitr，因此您将能够使用以下语法。

```{r error = TRUE, class.error = "bg-danger text-danger"}
rnorm(-10)
```

在这里我使用的是Bootstrap classes，但你可以将你需要的任何类别传递给class.error。大块选项class.message和class.warning也有效。请注意，class.output仅适用于标准代码输出。