R Shiny DataTable在特定表上选择了行颜色

Question

我正在尝试对数据表中的行选择应用不同的颜色，如本文所述：R Shiny DataTable selected row color。 正如在下面的示例中所示，这适用于应用程序中的所有数据表。

library(shiny)
library(DT)

ui <- fluidPage(
  tags$style(HTML('table.dataTable tr.selected td, table.dataTable td.selected {background-color: black !important;}')),
  title = 'Select Table Rows',    
  fluidRow(
    column(6, DT::dataTableOutput('Table1')),
    column(6, DT::dataTableOutput('Table2'))
  )  
)

server <- function(input, output, session) {
  output$Table1 = DT::renderDataTable(cars, server = FALSE)
  mtcars2 = head(mtcars[, 1:8],10)
  output$Table2 = DT::renderDataTable(mtcars2, server = TRUE)
}

shinyApp(ui, server)

有没有办法明确指定哪个表会受此影响？

Answer 1

只需要在你的风格声明的开头添加#TableID。下面我将新的突出显示样式仅应用于Table1 -

library(shiny)
library(DT)

ui <- fluidPage(
  tags$style(HTML('#Table1 table.dataTable tr.selected td, table.dataTable td.selected {background-color: black !important;}')),
  title = 'Select Table Rows',    
  fluidRow(
    column(6, DT::dataTableOutput('Table1')),
    column(6, DT::dataTableOutput('Table2'))
  )  
)

server <- function(input, output, session) {
  output$Table1 = DT::renderDataTable(cars, server = FALSE)
  mtcars2 = head(mtcars[, 1:8],10)
  output$Table2 = DT::renderDataTable(mtcars2, server = TRUE)
}

shinyApp(ui, server)