Question

之前已经问过R shiny dataTables with TableTools and other extensions和Use TableTools for DataTables in R Shiny for renderDataTable这个问题，但我目前正在努力获得TableTools的演示，以便从闪亮的应用程序中下载csv或xls。该按钮似乎工作，csv / xls选项可用，但没有任何反应。我唯一能想到的是将数据表版本从1.9.4更新到1.10.1，但仍然没有。所有其他路径都是最新的，除非我犯了一些愚蠢的错误。谢谢。

library(shiny)
library(ggplot2)
runApp(
  list(ui = basicPage(
    h1('Diamonds DataTable with TableTools'),
    tagList(
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables/1.9.4/jquery.dataTables.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/TableTools.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/ZeroClipboard.min.js',type='text/javascript'))),
      singleton(tags$head(tags$link(href='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/css/TableTools.min.css',rel='stylesheet',type='text/css'))),
      singleton(tags$script(HTML("if (window.innerHeight < 400) alert('Screen too small');")))
    ),
    dataTableOutput("mytable")
  )
  ,server = function(input, output) {
    output$mytable = renderDataTable({
      diamonds[,1:6]
    }, options = list(
      "sDom" = 'T<"clear">lfrtip',
      "oTableTools" = list(
        "sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
        "aButtons" = list(
          "copy",
          "print",
          list("sExtends" = "collection",
               "sButtonText" = "Save",
               "aButtons" = c("csv","xls")
          )
        )
      )
    )
    )
  })
)

Answer 1

在倾倒之后，我发现了我的初始错误。令人尴尬的是，主要问题是我试图直接从闪亮应用程序的rstudio发布中保存。我已经知道这是不可能的，因为rstudio没有闪光灯。因此，最初的解决方案是简单地运行应用程序，然后在安装了Flash的浏览器中打开它。然后保存按钮正常工作，我可以保存过滤的数据集。

然而，在我的努力中，我发现了一些其他人可能觉得有用的简化。

下一个版本的闪亮将使用更新的1.10.2 DataTables。您可以从github page下载当前的开发版本。这允许在更新其他源文件的链接后省略zeroclipboard文件。下面是我在浏览器中使用最新的闪亮软件包打开时发现的最终代码。请注意，DataTables 1.10.x转换为camelCase表示法时，表示法略有变化。找到旧符号的转换here。

library(shiny)
library(ggplot2)
runApp(
  list(ui = basicPage(
    h1('Diamonds DataTable with TableTools'),
    tagList(
      singleton(tags$head(tags$script(src='//cdn.datatables.net/1.10.2/js/jquery.dataTables.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdn.datatables.net/tabletools/2.2.2/js/dataTables.tableTools.min.js',type='text/javascript'))),
      singleton(tags$head(tags$link(href='//cdn.datatables.net/tabletools/2.2.2/css/dataTables.tableTools.css',rel='stylesheet',type='text/css'))),
      singleton(tags$script(HTML("if (window.innerHeight < 400) alert('Screen too small');")))
    ),
    dataTableOutput("mytable")
  )
  ,server = function(input, output) {
    output$mytable = renderDataTable({
      diamonds[,1:6]
    }, options = list(
      "dom" = 'T<"clear">lfrtip',
      "oTableTools" = list(
        "sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
        "aButtons" = list(
          "copy",
          "print",
          list("sExtends" = "collection",
               "sButtonText" = "Save",
               "aButtons" = c("csv","xls")
          )
        )
      )
    )
    )
  })
)

修改

自DT 0.1.5x起，接口在TableTools更新后发生了变化。您现在使用按钮扩展名。注意 - 这仍然是（3/29/16）要求用户从github安装，直到作者认为更新足以推送到CRAN。

library(shiny) library(DT) library(ggplot2) runApp( list(ui = basicPage( h1('Diamonds DataTable with DT'), dataTableOutput("mytable") ) ,server = function(input, output) { output$mytable = renderDataTable({ diamonds[,1:6] }, extensions = 'Buttons', options = list( "dom" = 'T<"clear">lBfrtip', buttons = list('copy', 'csv', 'excel', 'pdf', 'print') ) ) }) )

从闪亮的renderDataTable中保存

1 个答案: