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

Question

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

1

Я пытаюсь установить цвет выделения для выбранной строки в DataTable в моем блестящем приложении. В принципе, я хочу, чтобы цвет выбранных строк назывался красным, а не синим. Тем не менее, я совсем не знаком с JavaScript, поэтому я изо всех сил пытаюсь написать соответствующий обратный вызов (по крайней мере, я думаю, что это проблема). Вот что я пробовал до сих пор:

# 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'})",
      "}",
      "}")
  )))

})

Как вы можете видеть, до сих пор я просто пытаюсь понять, как изменить цвета строк. Как только я понял это, я попытаюсь изменить css на что-то вроде:

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

Но я еще не добрался - к сожалению, код выше ничего не делает для цвета фона. Если бы кто-нибудь мог помочь мне со всем решением, которое было бы здорово.

James Allingham 07 июль 2017, в 12:05

Источник

0

В пакете DT есть несколько встроенных функций для изменения цвета шрифта / фона. Смотри здесь
Gregor de Cillia 07 июль 2017, в 10:02
0

@GregordeCillia Я смотрел на них, но я не мог понять, как раскрасить строку, основываясь на том, был ли он выбран или нет.
James Allingham 07 июль 2017, в 10:06
0

Вы можете использовать dataTableProxy и обновлять стиль всякий раз, когда изменяется input$table_rows_selected
Gregor de Cillia 07 июль 2017, в 10:09
0

Подождите ... нет formatStyle эквивалента Proxys. Может быть, этот подход не работает.
Gregor de Cillia 07 июль 2017, в 10:14
0

@GregordeCillia да, я собирался сказать, что не могу заставить его работать ... Есть еще идеи? :)
James Allingham 07 июль 2017, в 10:27

Показать ещё 3 комментария

Теги:

javascript

datatables

r

css

shiny

1 ответ

Ещё вопросы

В пакете DT есть несколько встроенных функций для изменения цвета шрифта / фона. Смотри здесь
@GregordeCillia Я смотрел на них, но я не мог понять, как раскрасить строку, основываясь на том, был ли он выбран или нет.
Вы можете использовать dataTableProxy и обновлять стиль всякий раз, когда изменяется input$table_rows_selected
Подождите ... нет formatStyle эквивалента Proxys. Может быть, этот подход не работает.
@GregordeCillia да, я собирался сказать, что не могу заставить его работать ... Есть еще идеи? :)

Pork Chop · Accepted Answer · 2017-07-07T09-57-00.000Z

Это должно сделать работу:

#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))

Большое спасибо! Это сработало отлично.
Большое спасибо за вышеизложенное, это помогло мне с подобной проблемой. Чтобы установить разные цвета для выбранных строк и столбцов, используйте: tags$style(HTML('table.dataTable tr.selected td{background-color: pink !important;}')), tags$style(HTML('table.dataTable td.selected {background-color: orange !important;}'))