R Shiny DataTable：表示された行を確認

Question

私はDataTable（myDataTable）を含むR Shiny Appで作業しています。そこで私は、以下の機能を提供し、3つのエクスポート機能を必要とする：CSV

へのすべてのの行がCSV

に選択行をエクスポート

1. 輸出ははCSV
に行を表示エクスポート

1と2は簡単に解決されます。 1.すべてのエントリ：DataTableのデータモデルとして機能するサーバー側data.frameをエクスポートします。 2.選択されたエントリ：私はこのような選択された行にアクセス：

observeEvent(input$myDataTable_rows_selected, { 
    rows <- sort(input$myDataTable_rows_selected) 
    # do something with rows 
} 

をしかし、どのように、私は（すなわちフィルタ）を表示する行を見つけることができますか？私はHTMLのアプローチを考えました。trの要素はすべてdiv#myDataTableの子ですが、shinyjsはそれに有用な機能を提供していません。

Answer 1

フィルタリングされたデータにはinput$myDataTable_rows_allをそのまま使用できます。

小さな例：

library(shiny) 
library(DT) 

shinyApp(
    ui = fluidPage(
    dataTableOutput('myDataTable') 
), 

    server = function(input, output) {  
    observeEvent(input$myDataTable_rows_all, { 
     rows_filtered <- input$myDataTable_rows_all 
     rows_displayed <- rows_filtered[1:min(length(rows_filtered), input$myDataTable_state$length)] 
     # Download rows with your download fct. 
     print(rows_displayed) 
    }) 

    output$myDataTable = DT::renderDataTable({ 
     datatable(mtcars, options = list(stateSave = TRUE)) 
    }) 
    } 
)