R Shiny：指定DataTable PDF输出的文件名与表头问题

Hey there! Let's fix those two annoying issues with your Shiny app's PDF export—custom filename and missing headers—right away.

The generic "pdf.pdf" filename happens because you aren't explicitly defining it in the downloadHandler. Fixing this is straightforward: just specify the filename parameter to return your desired name:

output$yourExportButtonId <- downloadHandler(
  # Define your custom filename here
  filename = function() {
    "CurrentTable.pdf"
  },
  content = function(file) {
    # Your PDF generation logic goes here
  }
)

This will make every export save as "CurrentTable.pdf" instead of the default generic name.

Missing headers usually occur when you're printing a raw data frame to PDF without proper formatting. Here are two reliable solutions:

Option 1: Use gridExtra::grid.table #

This package renders formatted tables with intact headers directly to PDF:

library(gridExtra)

content = function(file) {
  # If your table uses pagination, grab all displayed rows first
  full_table_data <- your_data_frame[input$yourDataTableId_rows_all, ]
  
  pdf(file)
  # rows = NULL removes row numbers while keeping column headers visible
  grid.table(full_table_data, rows = NULL)
  dev.off()
}

Option 2: Use knitr for Styled Tables #

If you want more polished tables (with borders, captions, etc.), use knitr and kable:

library(knitr)

content = function(file) {
  full_table_data <- your_data_frame[input$yourDataTableId_rows_all, ]
  
  knit2pdf(
    text = "---
output: pdf_document
---

```{r, echo=FALSE}
kable(full_table_data, caption = 'Current Table')
```",
    output = file,
    quiet = TRUE
  )
}

Here's a complete Shiny app that combines both fixes for reference:

library(shiny)
library(gridExtra)

ui <- fluidPage(
  titlePanel("Fixed PDF Export Demo"),
  sidebarPanel(
    downloadButton("exportPDF", "Export as CurrentTable.pdf")
  ),
  mainPanel(
    dataTableOutput("myTable")
  )
)

server <- function(input, output) {
  # Sample data (replace with your actual data)
  my_data <- data.frame(
    Product = c("Laptop", "Phone", "Tablet"),
    Price = c(999, 699, 299),
    Stock = c(15, 30, 22)
  )

  output$myTable <- renderDataTable({
    my_data
  })

  output$exportPDF <- downloadHandler(
    filename = function() {
      "CurrentTable.pdf"
    },
    content = function(file) {
      # Grab all rows from the paginated table
      exported_data <- my_data[input$myTable_rows_all, ]
      
      pdf(file)
      grid.table(exported_data, rows = NULL)
      dev.off()
    }
  )
}

shinyApp(ui, server)

Just swap out the sample data and component IDs with your app's actual code, and you should be all set!

内容的提问来源于stack exchange，提问作者doubleh2