以 csv 格式下载生成的表格 - R Shiny

Question

我闪亮的应用程序生成了一个表格，我想以 csv 格式提供该表格供下载。

  ui = fluidPage( ...
         tableOutput("contents"),
         downloadButton("download", "Download results in csv format") 
)

server <- function( input, output, session ) {
   
   output$contents <- renderTable( ... )
  

output$download <- downloadHandler(
    filename = function() {
      paste(contents, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(contents(), file, row.names = FALSE)
    }
  )

我知道我必须创建一个反应式对象，但是renderTable本身使用另一个反应式对象（上传的数据集），所以看起来我需要将一个反应式对象嵌套到另一个中，但它似乎不起作用。 将不胜感激任何帮助。 谢谢！

Answer 1

编辑：根据问题和评论部分的要求，添加了一个使用renderTable而不是renderDataTable的示例：

这是一个使用 iris 数据集的示例。 我还从 DT 包中添加了一个表。 您不应将数据粘贴到filename函数中，而应粘贴到write.csv函数中。

```{r}
library(shinydashboard)
library(dplyr)
library(DT)

```
setosa <- filter(iris, Species == "setosa")

ui = fluidPage(
  downloadButton("download", "Download results in csv format") ,
  column(12,
         DT::dataTableOutput ("content"),
         style = "  overflow-y: scroll;overflow-x: scroll;")
  
)

server <- function(input, output, session) {
  output$content <-
    renderDataTable(head(setosa))
  output$download <-
    downloadHandler(
      filename = function () {
        paste("MyData.csv", sep = "")
      },
      content = function(file) {
        write.csv(content, file)
      }
    )
}

shinyApp(ui, server)
```

使用renderTable而不是renderDataTable

library(shiny)
library(dplyr)
library(DT)


setosa <- filter(iris, Species == "setosa")

ui = fluidPage(
  downloadButton("download", "Download results in csv format"),
   tableOutput("table")

  
)

server <- function(input, output, session) {
  data <- data.frame(setosa)
  output$table <-
    renderTable(data)
  output$download <-
    downloadHandler(
      filename = function () {
        paste("MyData.csv", sep = "")
      },
      
      content = function(file) {
        write.csv(data, file)
      }
    )
}

shinyApp(ui, server)