R 闪亮数据下载

下面的链接是：我编辑了代码来获得这个

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)

---

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

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

observeEvent（输入$dataset{
output$downloadData这是一个奇怪的代码，你真的需要它吗？话虽如此，我还是想把
output$downloadData
放在
observe（{}）
@Stéphanelarent中，我无法使用
observe（）
。也许你可以演示一下如何操作？我很好奇。@Flick先生，在键入此评论时，你给出了我大致想到的答案……这不是每次输入$dataset发生更改时都会进行计算，而不是在按下下载按钮时进行计算吗？是的。每次数据集发生更改时，它都会更改下载处理程序。这样，当按下按钮时。正确的句柄r已经设置好了。如果您尝试它，您应该会看到它是有效的。这是有意义的。在这种情况下，为什么原始示例不进行一次评估？我猜下载处理程序不是一个反应式环境？您只是注册了一个处理程序。
filename
和
content
函数在按下按钮之前不会运行。But当您调用
download（）
函数时，您正在修复这些值。这些值在以后不会有任何不同，因为它们是经过计算的。但是当函数内部有
input$dataset
时，该值将随时间而变化。