闪亮数据下载

Question

点击这里的链接：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)

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

这是一个变量作用域问题还是一个bug。代码运行良好，如上面的链接所示。这种行为看起来很奇怪。

Answer 1

你的download函数调用会评估它的参数，所以它们不再是被动的。如果你真的想这样做，我想你必须观察数据集的输入。像这样的东西

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