指定datatable pdf output r shiny的文件名和标头

Posted 2021-03-31

我有这样一个闪亮的应用程序：

library(shiny)
library(data.table)

tabledata <- data.table(a=1:4, b= 5:8)
ui <- fluidPage(
  dataTableOutput("currenttable")
)
server <-  function(input,output, session){
  output$currenttable <- renderDataTable({tabledata},rownames = FALSE, extensions = 'Buttons', 
                                         options = list(dom = 'Bfrtip',    buttons = c('copy', 'pdf'), 
                                                        filename = "CurrentTable", header= "My Header", pageLength = nrow(tabledata))
                                         )
}

shinyApp(ui, server)

pdf按钮有效，但只将文件保存为“pdf.pdf”而不是“CurrentTable”并且标题丢失。

答案

1. 你需要bind the options to the pdf button。你可以用这种方式包括filename和header选项。
2. 从DataTable pdf reference，header指示表头（即列名）是否应该包含在导出的表中 - 这只能是TRUE或FALSE，而不是字符串。如果您正在寻找表格上方的标题，则可以使用title选项。

这是你的例子：

library(shiny)
library(data.table)
library(DT)

tabledata <- data.table(a=1:4, b= 5:8)
ui <- fluidPage(
        DT::dataTableOutput("currenttable")
)
server <-  function(input,output, session){
        output$currenttable <- renderDT({tabledata},
                                        rownames = FALSE, 
                                        extensions = 'Buttons', 
                                        options = list(dom = 'Bfrtip',
                                                       pageLength = nrow(tabledata),
                                                       buttons = list(
                                                               list(extend = 'copy'),
                                                               list(extend = 'pdf',
                                                                    filename = 'CurrentTable',
                                                                    title = "My Title",
                                                                    header = FALSE)
                                                       )
                                                       )
                                        )
}

shinyApp(ui, server)