r - 编织时如何更改表格标题的颜色？

Question

我想知道是否有一种简单的方法可以在flextable不使用 CSS 的情况下更改表格标题的颜色？

---
title: "Test"
output:
  html_document:
    highlight: tango
    theme: readable
---

```{r}
library(flextable)
library(tidyr)
```

```{r}
flextable(iris[1:6,]) %>%  set_caption(caption = "Iris Dataset")  
```

这是我的输出：我想要一个黑色的表格标题

Answer 1

所以我问了flextable开发团队，他们建议使用：

```{css}
caption {
  color:red;
}
```

这不是一个真正的解决方案，因为例如我不能为不同的表设置不同的标题，并且它需要使用 CSS（将其添加到 rmd 文档中是一种不好的做法）