DT datatable固定列表头着色失效问题求助

问题出在FixedColumns扩展的DOM结构上：开启固定列后，固定列的表头会被单独渲染成一个独立的表格（放在.DTFC_LeftHeadWrapper容器里），你原来的JS代码只修改了主滚动表格的表头样式，没处理这个独立的固定列表头。

修改后的完整代码如下：

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'});",
        "  // 给左侧固定列的表头设置背景色",
        "  $('.DTFC_LeftHeadWrapper table thead').css({'background-color': 'red'});",
        "}"
      )
    )
  )

这段代码在原有基础上新增了一行JS，专门选中固定列容器里的表头元素，统一设置背景色，这样就能让所有表头都变成红色了。

内容的提问来源于stack exchange，提问作者yaennu.s