R Shiny：在列背景颜色之上获取 DT 行背景颜色

Question

我在一个闪亮的应用程序中使用DT::renderDT，并且正在为某些列和行设置背景颜色。我需要行背景颜色位于列背景颜色之上。我尝试切换formatStyle 的顺序，但没有奏效。这是一个小例子-

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(
    DTOutput("table")
  ),
  server = function(input, output, session) {    
    output$table <- renderDT({
      head(iris) %>%
        datatable() %>%
        formatStyle(c(2,4), backgroundColor = "#fcf4d9") %>%
        formatStyle(1, target = 'row', 
          backgroundColor = styleEqual(c(4.7, 5), c("#fc8a8a", "#fc8a8a"))
          # comment above row and ucomment below row for row color using styleInterval()
          # backgroundColor = styleInterval(c(0, 5, 9), c('blue', 'green', 'red', 'orange'))

        )
    })
  }
)

styleEqual() 的结果（不正确）-

StyleInterval() 的结果（不正确）-

行颜色必须在黄色（列颜色）之上。

正在寻找适用于多行和styleEqual() 或styleInterval() 的通用解决方案。任何帮助表示赞赏。谢谢！

Answer 1

这里有一个解决方案：

rowCallback <- c(
  "function(row, data, displayNum, displayIndex, dataIndex){",
  "  if(data[1] === 4.7){",
  "    $(row).find('td').addClass('red');",
  "  }",
  "}"
)

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(
        HTML(
          "table.dataTable tbody tr td.red {background-color: #fc8a8a !important}"
        )
      )
    ),
    DTOutput("table")
  ),
  server = function(input, output, session) {    
    output$table <- renderDT({
      head(iris) %>%
        datatable(options = list(rowCallback = JS(rowCallback))) %>%
        formatStyle(c(2,4), backgroundColor = "#fcf4d9")
    })
  }
)