如何在`HTMLTable`中编辑``标题的css？

Question

我想将标题表周围的边框颜色从包HTMLTable指定的默认灰色更改为黑色。我出于某种原因无法弄清楚这一点。我尝试过以下方法：

htmlTable(data, css.table = "margin-top: 0.5px; margin-bottom: 0.5px; border: 1.5px solid black;", css.cgroup="border-bottom: 1px solid black; border-top: 1.5px solid black; text-align: center;", file = "data.html")

我还将css.cgroup更改为css.rgroup但没有任何反应。非常感谢帮助！

Answer 1

必须有一个更好的方法来使用HTMLTable包来做到这一点，但这样做可以解决问题：

mytableout <-htmlTable(data)

sink("data.html")
cat("<style>th {border-bottom: 1px solid black !important;border-top: 2px solid black !important;}</style>")
print(mytableout,type="html",useViewer=TRUE)
sink()

黑色：

灰色：