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

Question

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

我的原始表包含许多列 - >这就是为什么以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

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

横向的闪亮数据表