闪亮的数据下载答案

【问题标题】：Shiny Data Download闪亮的数据下载
【发布时间】：2018-07-27 18:00:37
【问题描述】：

点击此处的链接：https://shiny.rstudio.com/articles/download.html 我编辑了代码以获取此信息，

ui <- fluidPage(

# App title ----
titlePanel("Downloading Data"),

# Sidebar layout with input and output definitions ----
sidebarLayout(

# Sidebar panel for inputs ----
sidebarPanel(

  # Input: Choose dataset ----
  selectInput("dataset", "Choose a dataset:",
              choices = c("rock", "pressure", "cars")),

  # Button
  downloadButton("downloadData", "Download")

),

# Main panel for displaying outputs ----
mainPanel(

  tableOutput("table")

)

)
)

server <- function(input, output) {

# Reactive value for selected dataset ----
datasetInput <- reactive({
  switch(input$dataset,
         "rock" = rock,
         "pressure" = pressure,
         "cars" = cars)
})

# Table of selected dataset ----
output$table <- renderTable({
  datasetInput()
})

download = function(filename,data){
  downloadHandler(
    filename = function(){
      paste(filename, ".csv", sep = "")
    },
    content = function(file){
      write.csv(data,file,row.names = FALSE)
    }
  )
}

# Downloadable csv of selected dataset ----
output$downloadData <- download(input$dataset,datasetInput())

}

shinyApp(ui,server)

唯一的区别是下载处理程序被移到了一个函数中。如果我们运行该应用程序，它可以工作，但仅适用于第一次下载。当数据集更改以进行第二次下载时，文件名和数据似乎被缓存。如果应用程序被刷新，可能会下载不同的数据集，但只能再次下载。

这是变量范围问题还是错误。代码可以正常工作，如上面的链接中所示。这种行为看起来很奇怪。

【问题讨论】：

那是奇怪的代码，你真的需要吗？话虽如此，我会尝试将output$downloadData 放入observe({})。
@StéphaneLaurent 我无法让它与observe() 一起使用。也许你可以展示如何？我很好奇。
@MrFlick 你给出了我在输入此评论时大致想到的答案...

标签： r shiny

【解决方案1】：

您的下载函数调用会评估它的参数，因此它们不再是反应式的。如果你真的想这样做，我想你必须观察数据集的输入。像这样的

observeEvent(input$dataset, {
  output$downloadData <- download(input$dataset,datasetInput())
})

【讨论】：

是否会在每次 input$dataset 更改而不是在按下下载按钮时进行评估？
是的。每次数据集更改时，它都会更改下载处理程序。按下按钮时就是这样。已经设置了正确的处理程序。如果您尝试一下，您应该会发现它有效。
这是有道理的。在那种情况下，为什么原始示例不只评估一次？我猜下载处理程序不是反应式环境？
您只是在注册一个处理程序。在按下按钮之前，filename 和 content 函数不会运行。但是当您调用 download() 函数时，您正在修复这些值。它们以后不会有任何不同，因为它们是经过评估的。但是当函数内部有input$dataset 时，该值会随着时间而改变。