R Shiny DataTable ausgewählte Zeilenfarbe

Question

Ich versuche, die Hervorhebungsfarbe für eine ausgewählte Zeile in einer DataTable in meiner glänzenden App festzulegen. Grundsätzlich möchte ich, dass die Farbe der ausgewählten Zeilen eher rot als blau ist. Allerdings bin ich überhaupt nicht mit JavaScript vertraut, daher habe ich Schwierigkeiten, den entsprechenden Rückruf zu schreiben (zumindest denke ich, dass das das Problem ist). Hier ist, was ich versucht habe, so weit:

# ui.R 
library(shiny) 

fluidPage(
    title = 'DataTables Test', 
    DT::dataTableOutput('table') 
) 

# server.R 
library(shiny) 
library(DT) 

# render the table 
output$table = renderDataTable(datatable(head(iris, 20), 
options = list(
    initComplete = JS(
     "function(settings, json) {", 
     "var rows = $(this.api().table().rows());", 
     "for (var i = 0; i < rows.length; i++){ ", 
     "var row = rows[i];", 
     "row.css({'background-color': '#000', 'color': '#f00'})", 
     "}", 
     "}") 
))) 

}) 

Wie Sie sehen können, so weit ich nur versuche, herauszufinden, wie die Zeilenfarben zu ändern. Nachdem ich das herausgefunden hatte, wollte ich die CSS zu so etwas wie zu versuchen und zu ändern:

"tr.selected td, table.dataTable td.selected { background-color: #f00}" 

Aber ich habe es noch nicht bekommen - leider oberhalb der Code tut nichts, um die Hintergrundfarbe. Wenn mir jemand mit der ganzen Lösung helfen könnte, wäre das toll.

Answer 1

Dies sollte die Arbeit machen:

#rm(list = ls()) 
library(shiny) 
library(DT) 

ui <- basicPage(
    tags$style(HTML('table.dataTable tr.selected td, table.dataTable td.selected {background-color: pink !important;}')), 
    mainPanel(DT::dataTableOutput('mytable')) 
) 

server <- function(input, output,session) { 

    output$mytable = DT::renderDataTable( 
    datatable(mtcars) 
) 
} 
runApp(list(ui = ui, server = server))