Download the filtered data of a data table in shiny

Adapted from https://yihui.shinyapps.io/DT-info/

library(shiny)

ui <- fluidPage(
  DT::dataTableOutput("table"),
  downloadButton("download_filtered")
)

server <- function(input, output, session) {
  data <- head(datasets::BOD, 3)
  
  output$table <- DT::renderDataTable(data, server = FALSE)
  
  output$download_filtered <- downloadHandler(
    filename = "download-filtered.csv",
    content = function(file) {
      idx <- input$table_rows_all
      filtered <- data[idx, , drop = FALSE]
      readr::write_csv(filtered, file)
    }
  )
}

shinyApp(ui, server)

The issue provides an R Shiny example using DT::dataTableOutput, renderDataTable, and downloadHandler, but names no repository file or test. First locate the relevant data-table or download integration, then verify that a download contains only the rows remaining after filtering.