DT数据表选择的行颜色：IE和chrome上的行为不一致

Question

我有一个类似于下面的应用程序，我想自定义通过DT呈现的所选行的颜色。我的应用代码如下所示

library(shiny)
library(DT)

bkg_shade <-"#2c3e50" 

ui <- fluidPage(
  tags$style(HTML(paste0("table.dataTable tr.selected td, table.dataTable td.selected{background-color: ",
                        bkg_shade," !important;}"))),
  fluidRow(dataTableOutput("tbl"))
)
server <- function(input, output){
  output$tbl <- renderDataTable({
    datatable(mtcars)
  })

}

app <- shinyApp(ui = ui, server= server)
runApp(app)

在chrome上看起来与预期一致，所选行颜色是我指定的颜色。

但是，选定的行颜色仍然是IE中的默认颜色。

以前是否有人遇到类似问题？以及如何解决这个问题，以便在IE中自定义所选的行颜色？

Answer 1

我的代码问题非常类似，几乎放弃了找到解决方案的希望。然而，一个小小的调整似乎解决了它。

您会注意到唯一真正的变化是插入了 tbody 。你应该能够保留原样。

library(shiny)
library(DT)

bkg_shade <-"#2c3e50" 

ui <- fluidPage(
  tags$style(HTML(paste0("table.dataTable tbody tr.selected td, table.dataTable td.selected{background-color: ", bkg_shade," !important;}"))),
  fluidRow(dataTableOutput("tbl"))
)
server <- function(input, output){
  output$tbl <- renderDataTable({
    datatable(mtcars)
  })

}

app <- shinyApp(ui = ui, server= server)
runApp(app)