css – 更改RMarkdown中的块背景颜色

我想使用不同颜色(例如红色)突出显示的某个代码块来表示这是不好的做法。如果我正在使用.Rnw，我可以添加chunk选项background =’red’，并得到我想要的，但这似乎不适用于.Rmd。我的猜测是，我需要制作一个自定义的CSS样式表(虽然选择器是什么，我不知道)，也可能创建一个自定义钩子。我希望它是一个大块的基础，而不是整个文档的整体变化。

解决方法

我现在已经尝试过了这是我的出发点：

Add a CSS class to single code chunks in RMarkdown

我可能设置一个名为“badCode”的类，然后有一点css可以改变背景。

这是我的Rmd

---
title: Background color
output: 
  html_document:
    css: badCode.css
---

```{r,include=FALSE}
knitr::knit_hooks$set(source = function(x,options) {

  str_class <- 
    ifelse(
      is.null(options$class),"",paste0(".",options$class,collapse = " ")
    )


  c(
    paste0("```{.r ",str_class,"}\n"),x,"\n```"
  )
})
```

```{r mtcars}
library("magrittr")

mtcars %>%
  summary()
```

```{r cars,class="badCode"}
summary(cars)
```

这是badCode.css：

.badCode {
  background-color: red;
}

我确定这可以更干净地完成。