Выбор и извлечение нескольких строк из отсортированного datatable в R Shiny

Question

Использование https://demo.shinyapps.io/029-row-selection/ в качестве ссылки, я создаю приложение, чтобы выбрать любое количество строк в отсортированных/несортированных данных & получить соответствующие индексы. Однако, если я использую код как есть, он не работает с отсортированными данными. Поэтому я изменил код следующим образом:

server.R

library(shiny) 

shinyServer(function(input, output) { 
    output$tbl <- renderDataTable(
    mtcars, 
    options = list(pageLength = 10), 
    callback = "function(table) { 
     table.on('click.dt', 'tr', function() { 
     $(this).toggleClass('selected'); 
     Shiny.onInputChange('rows', 
          table.rows('.selected').data()[0][0]); # returns actual row number but does not allow multiple selection 
     }); 
    }" 
) 
    output$rows_out <- renderText({ 
    paste(c('You selected these rows on the page:', input$rows), 
      collapse = ' ') 
    }) 
}) 

ui.R

library(shiny) 

shinyUI(fluidPage( title = 'Row selection in DataTables', sidebarLayout(
    sidebarPanel(textOutput('rows_out')), 
    mainPanel(dataTableOutput('tbl')), 
    position = 'right' ))) 

Поэтому я использую Shiny.onInputChange('rows',table.rows('selected').data()[0][0]); так, что, когда таблица sorted, он возвращает номер строки в фактическом наборе данных, а не индекс, основанный на видимой таблице. Но проблема в том, что он возвращает только первый выбор.

Я также попытался использовать Shiny.onInputChange('rows',table.rows('selected').data()[0][0].toArray());, чтобы получить все выбранные номера строк в массиве, но, как ни странно, он ничего не возвращает, даже не первый выбранный номер строки (например, выше).

Answer 1

Данная проблема была решена в пакете DT. Вам больше не нужно писать JavaScript. Для примера см. http://rstudio.github.io/DT/shiny.html.