将自定义类标签添加到数据表行

Question

是否有可能将服装类标签添加到 data.table 行？

我使用 formatStyle 将我的 DT 行格式化为黄色背景，以防满足某个条件。

DT::formatStyle(1, target = "row", backgroundColor = DT::styleEqual(trans_age(), c("yellow"))) %>%

但是，当我想使用 Web 浏览器中的打印功能打印表格时，没有显示颜色。 因此，我的想法是为特定添加一个类标签，并使用@media 打印通过costum css 设置打印的颜色。

亲切的问候， 西尔克

Answer 1

使用createdRow选项：

library(DT)

dat <- iris[1:3,]

js <- JS(
  "function( row, data, dataIndex ) {",
  "  if(dataIndex === 2) {",
  "    $(row).addClass('myclass');",
  "  }",
  "}"
)

datatable(
  dat, 
  options = list(
    createdRow = js
  )
)

这将类myclass添加到第三行，因为在 JavaScript 中索引从 0 开始。