在 R Shiny 中下载反应表的输出答案

【问题标题】：Downloading the outputs of a reactive table in R shiny在 R Shiny 中下载反应表的输出
【发布时间】：2020-10-05 11:36:03
【问题描述】：

我有一个 R 闪亮的应用程序，它从用户那里获取 .csv 导入并在内置数据框中搜索导入的数据，然后在输出中给出匹配百分比。 UI 非常简单，有几个不同的输入（导入 .csv、一个滑块和一些单选按钮）。我想要的是能够获取反应表输出并将其打印到用户可以下载到他们的机器的 .csv 中。应用程序的服务器端如下所示：

server <- function(input, output){
    rvals <- reactiveValues()

    observeEvent(input$file_1,{
        req(input$file_1)
        rvals$csv <<- read.csv(input$file_1$datapath, header = TRUE)
        #some data processing here
  })

    output$contents <- renderTable({
        if(input$select == 1){
        x <- function
        }else if(input$select == 2){
        x <- function
        }else if(input$select == 3){x <- function}

        #some more data processing and formatting here

        return(x)

    },digits = 4)
}

我希望数据表 x 能够成为可以通过单击下载按钮下载的 .csv。在服务器中，我添加了以下代码，但是当我尝试下载数据时，它只会下载一个空白文件，并在我机器上的下载管理器中显示“服务器错误”。

output$downloadData <- downloadHandler(
    filename = "thename.csv",
    content = function(file){
      write.csv(x, file)
    }

在控制台中，我还收到错误消息： Warning: Error in is.data.frame: object 'x' not found [No stack trace available]

【问题讨论】：

你试过DT包吗？
是的，我尝试了 DT 包，当我使用它时，我仍然遇到完全相同的问题，它不会下载为 .csv 并引发错误。我尝试不使用 DT 包，因为我不喜欢输出的外观。
您可以在 DT 包中随意设置多个设置，以使表格看起来与您想要的完全一样
我最好的猜测是您的 x 甚至不是数据框，或者您正在搞乱文件名的构造，您是否按照 shiny.rstudio.com/reference/shiny/0.14/downloadHandler.html 中提供的示例进行操作？
如果你通过了reprex，我可以进一步帮助你

标签： r shiny

【解决方案1】：

EventReactive 已经输出了一个响应值，你不需要创建额外的 reactiveVal，见下面的例子：

library(shiny)

# Define UI
ui <- fluidPage(

  # Application title
  titlePanel("Test"),
    mainPanel(
      actionButton("show", "Download"),
      textOutput("result")
    )
  )


server <- function(input, output) {
  csvfile <- eventReactive(req(input$show), ignoreNULL = T, {
      "Content of file"
   })

  output$result <-  reactive(
    paste("result : ",csvfile()))
}

# Run the application
shinyApp(ui = ui, server = server)

我也会避免在反应式表达式中使用<<-operator。

【讨论】：

【解决方案2】：

您在renderTable 的表达式中创建的对象在它之外不可用。相反，您可以将其分配给您设置的反应值。下面是一个工作示例（请注意，我已尝试复制您的代码，因此在您单击“上传 CSV”之前数据将不可用，此处仅调用 mtcars）。

library(shiny)

ui = fluidPage(

  sidebarPanel(
    actionButton(inputId = "uploadCsv", label = "Upload CSV:", icon = icon("upload")),
    selectInput(inputId = "preProc", label = "Pre-processing", choices = c("Mean"=1,"Sum"=2)),
    downloadButton("downloadData", label = "Download table")
  ),

  mainPanel(
    h4("My table:"),
    tableOutput("contents")
  )

)

server <- function(input, output) {

  rvals <- reactiveValues(
    csv=NULL,
    x=NULL
  )

  observeEvent(input$uploadCsv,{
    rvals$csv <- mtcars # using example data since I don't have your .csv
    # rvals$csv <- read.csv(input$file_1$datapath, header = TRUE) 
    #some data processing here
  })

  output$contents <- renderTable({
    # Assuing the below are functions applied to your data
    req(
      input$preProc,
      !is.null(rvals$csv)
    )
    if(input$preProc == 1){
      rvals$x <- data.frame(t(colMeans(mtcars)))
    }else {
      rvals$x <- data.frame(t(colSums(mtcars)))
    }

    return(rvals$x)

  },digits = 4)

  output$downloadData <- downloadHandler(
    filename = "myFile.csv",
    content = function(file){
      write.csv(rvals$x, file)
    }
  )
}

shinyApp(ui,server)

【讨论】：