0

我正在使用 Shiny 和 DT 包来显示来自 MySQL 数据库的过滤表。

简而言之，我从用户那里获取输入值，创建 SQL 查询，捕获输出并将其显示为 DataTable。可以使用 DataTable 列过滤器进一步过滤输出，用户应该能够下载过滤后的数据集。

根据DT docs，input$table_rows_all应该包含显示表格的行索引。但是，当我按下下载按钮时，我得到一个只有列名而没有数据的文件。

library(shiny)
library(DT)
library(RMySQL)

con <- dbConnect(MySQL(), user="myuser", host="myhost", dbname="mydb")

shinyServer(function(input, output) { 

                sqlOutput <- reactive({
                    sqlInput <- paste0("select * from mydb.mytable",
                           " where value < ", input$value,
                           ";")
                    dbGetQuery(con, sqlInput)
                })

                output$table <- DT::renderDataTable(sqlOutput(), server=TRUE, rownames=FALSE, filter="top", options=list(pageLength=10))

                output$download <- downloadHandler("filtered.data.txt", content = function(file) {
                                           rows <- input$table_rows_all
                                           write.table(sqlOutput()[rows, ], file, sep="\t", quote=FALSE, col.names=TRUE, row.names=FALSE)
                })

})

在上面的代码中，我将输出保存DBI::dbQuery()到一个反应函数sqlOutput()中，这样我就可以将它传递给DT::renderDataTable()和shiny::downloadHandler()。

我究竟做错了什么？我不确定，但看起来input$table_rows_all由于某种原因返回了一个空向量。

非常感谢任何帮助，谢谢！

4

1 回答 1

0

您的示例并不是真正可重现的，但如果您只想能够从 shiny with 下载生成的表，DT我会查看DT extensions。在那里你可以看到你可以使用tableTools一个选项来下载而不是使用手册downloadHandler。

这是一个演示功能的可重现示例：

注意- 您将需要一个www目录并flash安装在您的浏览器中。

library(shiny)
library(DT)

data(iris)

runApp(list(
  ui = fluidPage(
    sidebarLayout(
      sidebarPanel("DT Download Example"),
      mainPanel(
        DT::dataTableOutput("mytable")
        )
      )
    ),
  server = function(input, output) {
    output$mytable <- DT::renderDataTable({
      iris
    }, 
    extensions = 'TableTools',
    rownames=FALSE, 
    filter="top", 
    options=list(dom = 'T<"clear">lfrtip',
                 tableTools = list(
                   sSwfPath = copySWF('www'),
                   aButtons = list('copy', 'print',
                                   list(
                                     sExtends = 'collection',
                                     sButtonText = 'Save',
                                     aButtons = c('csv','xls')
                                     )
                                   )
                   )
                 )
    )
  }))

这是代码中相关部分的未经测试的版本：

output$table <- DT::renderDataTable({
  sqlOutput()
}, server=TRUE, 
extensions = 'TableTools',
rownames=FALSE, 
filter="top", 
options=list(pageLength=10,
             dom = 'T<"clear">lfrtip',
             tableTools = list(
               sSwfPath = copySWF('www'),
               aButtons = list('copy', 'print',
                               list(
                                 sExtends = 'collection',
                                 sButtonText = 'Save',
                                 aButtons = c('csv','xls'))))))
于 2015-09-16T12:48:57.303 回答