利用R Shiny datatable中的背景色为单元格上色

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("Coloring Cells in R Shiny Datatable"),
  sidebarLayout(
    sidebarPanel(
      # 设置输入参数
      selectInput("color_column", "选择要上色的列:", choices = colnames(iris)),
      selectInput("color_value", "选择要上色的值:", choices = unique(iris$Species))
    ),
    mainPanel(
      # 显示datatable
      DT::dataTableOutput("my_datatable")
    )
  )
)

server <- function(input, output) {
  output$my_datatable <- DT::renderDataTable({
    # 根据选择的列和值，设置单元格的背景色
    datatable(iris, options = list(
      rowCallback = JS(
        "function(row, data) {",
        "var color_column = ", input$color_column, ";",
        "var color_value = '", input$color_value, "';",
        "var cell_value = data[color_column];",
        "if (cell_value === color_value) {",
        "$(row).find('td').css('background-color', 'yellow');",
        "}",
        "}"
      )
    ))
  })
}

shinyApp(ui, server)