Question

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

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”并且标题丢失。

Answer 1

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

以下是您的例子：

title

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

1 个答案: