Rmarkdown 生成的 HTML 表格的颜色问题

Question

也许这只是一个愚蠢的浏览器相关问题，但是...

我使用tableHTML 包通过Rmarkdown 在HTML 文件中生成一些彩色表格（颜色由RColorBrewer 包生成）：

```{r Init, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
require(magrittr, quietly = TRUE)
require(tableHTML)
test <- data.frame(A=123, B=456, C=789)
```

...

```{r Test, echo=FALSE, results="asis"}
tableHTML(test) %>%
  add_css_thead(css = list('background-color', '#4DAF4A')) %>%
  add_css_table(css = list('border', '#4DAF4A'))
```

边框的颜色在“Rstudio”查看器中看起来不错：

但在 Safari 或 Firefox 中打开时，边框颜色不同：

表格边框颜色有什么问题？

Answer 1

非常感谢您的提问！

对于add_css_table，样式应用于table-标签，对于add_css-thead，它应用于thead 标签。但我认为要获得您想要的效果，您可以通过add_css_header 和add_css_column 函数将样式应用于th 和td 标签：

tableHTML(test) %>%
    add_css_header(css = list(c("background-color", "border"),
                              c("#4DAF4A", "1px solid #4DAF4A")),
                   headers = 0:4) %>% 
    add_css_column(css = list("border", "1px solid #4DAF4A"),
                   columns = c("rownames", names(test)))

在 RStudio 中，它看起来像这样：

在 Firefox 中：

在 Chrome 中：

Answer 2

根据https://www.colorhexa.com/4daf4a，最接近“#4daf4a”的网络安全颜色是“#669933”。把边框改成#669933 能解决你的问题吗？