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

Question

是否可以将服装 class 标签添加到 data.table 行？

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

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

但是，当我想使用网络浏览器的打印功能打印 table 时，颜色没有显示。因此，我的想法是为具体添加一个 class 标签，并使用 @media print.

通过服装 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
  )
)

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

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

Add custom class label to datatable row

javascript

r

shiny

datatables

dt