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)

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

这是变量范围界定问题还是错误。该代码可以正常工作，如上面的链接中所给。该行为似乎很奇怪。

Answer 1

您的下载函数调用将评估其参数，以使它们不再起作用。如果您真的想这样做，我想您必须观察数据集的输入。像这样

fb.group({ departments: this.fb.array([]) })

闪亮数据下载

1 个答案: