R Shiny DataTable выбранный цвет строки на определенной таблице - PullRequest
Новая
       21

R Shiny DataTable выбранный цвет строки на определенной таблице

0 голосов
/ 13 октября 2018

Я пытаюсь применить другой цвет при выборе строки в таблицах данных, как упомянуто в этом посте: R Блестящий DataTable выбранный цвет строки .Как видно из приведенного ниже примера, это относится ко всем таблицам данных в приложении.

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)

Есть ли способ для определения, на какую таблицу это повлияет?

1 Ответ

0 голосов
/ 13 октября 2018

Просто нужно добавить #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)
...