R - Filtered Datatableをダウンロードする

Question

私は、それが組み込みの検索を使用してフィルタリングされた後にデータテーブルをダウンロードしたいと思っています。どちらか、またはデータテーブルで使用されているのと同じ種類の検索を使用してデータフレームをフィルタリングし、データテーブルで検索にアクセスすることができます。

Answer 1

クライアント側の処理を使用する場合は、入力オブジェクトinput[["tablename_rows_all"]]を使用してこれを実行できます。 （_rows_allをデータ出力可能スロットの名前に付加）

_rows_allオブジェクトは、データフレームの行インデックスを返します。 downloadHandlerのデータを使用して、ダウンロードが開始されたときにデータフレームをサブセット化することができます。

library(shiny) 
library(DT) 

shinyApp(
    ui = 
    shinyUI(
     fluidPage(
     DT::dataTableOutput("dt"), 

     p("Notice that the 'rows_all' attribute grabs the row indices of the data."), 
     verbatimTextOutput("filtered_row"), 


     downloadButton(outputId = "download_filtered", 
         label = "Download Filtered Data") 
    ) 
    ), 

    server = 
    shinyServer(function(input, output, session){ 
     output$dt <- 
     DT::renderDataTable(
      datatable(mtcars, 
        filter = "top"), 
      server = FALSE 
     ) 

     output$filtered_row <- 
     renderPrint({ 
      input[["dt_rows_all"]] 
     }) 


     output$download_filtered <- 
     downloadHandler(
      filename = "Filtered Data.csv", 
      content = function(file){ 
      write.csv(mtcars[input[["dt_rows_all"]], ], 
         file) 
      } 
     ) 
    }) 
)