將自定義類標簽添加到數據表行

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 開始。