下载处理程序不适用于 observeEvent

Question

我正在尝试使用带有 observeEvent 闪亮的 downloadHandler 下载文件，但我无法下载该文件，

    library(shiny)

load(url("http://s3.amazonaws.com/assets.datacamp.com/production/course_4850/datasets/movies.Rdata"))


   ui <- fluidPage(
    sidebarLayout(

    # Input
    sidebarPanel(

      # Numeric input for number of rows to show
      numericInput(inputId = "n_rows",
                   label = "How many rows do you want to see?",
                   value = 10),

      # Action button to show
      actionButton(inputId = "button", 
                   label = "Show")

    ),

    # Output:
    mainPanel(
      tableOutput(outputId = "datatable")

    )
  )
)


server <- function(input, output, session) {

  # creating a reactive expression
  df <- eventReactive(input$button, {
    movies %>% head(input$n_rows)
  })

  # download a csv  everytime when user click on show button
  observeEvent(input$button, {
    output$button <- downloadHandler(
      filename = function() {
        paste("data-", Sys.Date(), ".csv", sep="")
      },
      content = function(file) {
        write.csv(df(), file)
      }
    )
    cat("done downloading file  \n")
  })

  # displays the data on the web in tabular format, data comes from reactive event
  output$datatable <- renderTable({
    df()
  })
}

# Create a Shiny app object
shinyApp(ui = ui, server = server)

我可以毫无错误地执行上面的代码，但是没有下载 csv 文件，我想显示数据 table 并在同一个按钮单击事件上下载显示的数据，我该如何实现，我是否遗漏了什么，任何帮助将不胜感激

Answer 1

试试这个：

library(shiny)
library(dplyr)
load(url("http://s3.amazonaws.com/assets.datacamp.com/production/course_4850/datasets/movies.Rdata"))


ui <- fluidPage(
  sidebarLayout(

    # Input
    sidebarPanel(

      # Numeric input for number of rows to show
      numericInput(inputId = "n_rows",
                   label = "How many rows do you want to see?",
                   value = 10),

      # Action button to show

      downloadButton('downloadData', 'Download data')

    ),

    # Output:
    mainPanel(
      tableOutput(outputId = "datatable")

    )
  )
)


server <- function(input, output, session) {

  # Reactive value for selected dataset ----
  df <- reactive({
    movies %>% head(input$n_rows)
  })


  output$datatable <- renderTable({
    df()
  })

  output$downloadData <- downloadHandler(
    filename = function() { 
      paste("dataset-", ".csv", sep = "")
    },
    content = function(file) {
      write.csv(df(), file, row.names = FALSE)
    })
}

# Create a Shiny app object
shinyApp(ui = ui, server = server)

下载处理程序不适用于 observeEvent

downloadHandler not working with observeEvent

r

shiny

shiny-server