R - 下載已過濾的數據表

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