修复了 DT 数据表中带有彩色标题的列

Question

我正在尝试生成一个具有固定列和彩色标题的

DT::datatable

。这是我的代码：

library(dplyr)

mtcars %>%
  DT::datatable(
    extensions = c("FixedColumns"),
    options = list(
      fixedColumns = list(leftColumns = 2),
      paging = FALSE,
      scrollX = TRUE,
      scrollY = "400px",
      initComplete = DT::JS(
        "function(settings, json) {",
        "$(this.api().table().header()).css({'background-color': 'red'});",
        "}")
    )
  )

不幸的是，固定标题部分没有着色，而标题的移动部分变为红色（如预期）。我不太擅长JS，所以错误可能出在上面的JS插入上？

Answer 1

它与

headerCallback

选项一起使用：

library(DT)

js <- c(
  "function(thead, data, start, end, display) {",
  "  $('th', thead).css('background-color', 'red');",
  "}"
)

datatable(
  mtcars,
  extensions = c("FixedColumns"),
  options = list(
    fixedColumns = list(leftColumns = 2),
    paging = FALSE,
    scrollX = TRUE,
    scrollY = "400px",
    headerCallback = JS(js)
  )
)