R：DT包按钮扩展（下载为pdf）

Question

我在 DT开发版本（0.1.56）中将 DT按钮扩展出现问题，同时将表格下载为pdf（表格被剪切）。

我的原始表包含许多列 - ＆gt;这就是为什么以PDF格式打印非常糟糕而且桌子的一半被裁掉了。

我在想，也许querformat会有所帮助，或者任何人都可以有更好的主意？

下面是一个示例代码，它将演示完全相同的问题：

library("shiny")
library("DT")

data <- cbind(iris,iris,iris)
shinyApp(
  ui = fluidPage(DT::dataTableOutput('tbl')),
  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      data,extensions="Buttons",options = list(dom = 'Bfrtip',
                                               buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
      ))
  }
    )

提前致谢！

Answer 1

我不赞成这个，但这为我解决了这个问题。

shiny datatable in landscape orientation