时间戳

首页 > 解决方案 > 闪亮的数据下载

r - 闪亮的数据下载

问题描述

按照这里的链接：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)

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

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

标签： rshiny

解决方案

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

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

推荐阅读