Shiny 中的 DataTable TableTools 扩展实现

我有一个 dataTabe，我正在尝试为其实现 tableTools，以便以 csv 格式导出记录。但是，当过滤后的数据超过一页记录时（如此处提供的示例所示），导出按钮不会选取第二页及以后的记录，而只会导出第一页。

根据我的研究，似乎oSelectorOps:{ page: 'all' }选项应该可以解决问题。但是我无法让它工作。如果运行下面的代码并点击导出按钮，将生成一个只有 100 行（即第一页）而不是整个表格的 csv 文件。如果我的语法不正确，或者是否有更好的替代方法来实现此目的，请告知。

请注意，我不想使用downloadHandler因为我希望能够在使用表底部的数据表过滤器字段进行过滤时导出数据。

请点击here and here帮助解决类似的问题。

这是我的可重现的示例：

#Load required packages
require(shiny)

#Create a dataframe
df <- data.frame(random=1:160)

server <- function(input,output,session){

    #Display df using DataTable and apply desired options
    output$display <- renderDataTable({df}, 
           option=list(pageLength=100,
                       "dom" = 'T<"clear">lfrtip',
                       "tableTools" = list(
                        "sSwfPath" = "//cdn.datatables.net/tabletools/2.2.3/swf/copy_csv_xls_pdf.swf",
                        "aButtons" = list(list("sExtends" = "csv","oSelectorOpts"=list("page"="all"),"sButtonText" = "Export","aButtons" ="csv")))         
       )

   )
}

ui <- shinyUI(fluidPage(

    #Add a title
    h1('Testing TableTools'),

    #Add required JS libraries
    tagList(
        singleton(tags$head(tags$script(src='//cdn.datatables.net/1.10.4/js/jquery.dataTables.min.js',type='text/javascript'))),
        singleton(tags$head(tags$script(src='//cdn.datatables.net/tabletools/2.2.3/js/dataTables.tableTools.min.js',type='text/javascript'))),
        singleton(tags$head(tags$link(href='//cdn.datatables.net/tabletools/2.2.3/css/dataTables.tableTools.css',rel='stylesheet',type='text/css')))
            ),


        mainPanel(
           #Display results
           dataTableOutput('display')
                 )      


))

shinyApp(ui = ui, server = server)

试试这个：

{
sExtends: "csv",
"oSelectorOpts": {
    page: 'all',
    filter:'applied'
    },
"mColumns": "visible"
},