r - 按钮 csv/excel 不下载文件，而是打开一个空白页面

Question

按钮 csv/excel 打开一个空白页面，而不是下载带有数据框的文件。需要下载数据帧 rv1() 的内容。有人可以告诉我是否有问题或遗漏吗？

server <- function(input, output) {

  rv <- reactiveValues(fli = data.frame("FlightName" = character(), "AddedValue" = character()))

  observeEvent(input$go, {
    # Bind new row to rv$fli
    rv$fli <- rbind(
      rv$fli, 
      if (input$addedvalue == "Yes"){
        data.frame("Account"=input$account,"Advertiser"= input$advertiser,"Insertion Order ID"=input$insertionorderid,"Campaign Name"=input$campaignname, "FlightName"=paste0(input$advertiser," - ",input$flightname," - ","Added Value"), "AddedValue"=input$addedvalue)}
      else{
        data.frame("Account"=input$account,"Advertiser"= input$advertiser,"Insertion Order ID"=input$insertionorderid,"Campaign Name"=input$campaignname,"FlightName"=paste0(input$advertiser," - ",input$flightname), "AddedValue"=input$addedvalue)}
    )
  })

  rv1 <- reactive({rv$fli})

  output$mytable1  <- DT::renderDataTable(
    DT::datatable(
      rv1(),
      extensions = 'Buttons',
      options = list(
        paging = TRUE,
        searching = TRUE,
        fixedColumns = TRUE,
        autoWidth = TRUE,
        ordering = TRUE,
        dom = 'tB',
        buttons = c('copy', 'csv', 'excel')
      ),
      class = "display"
    ))
}
shinyApp(ui=ui, server=server)

下载的文件应该有一个数据框。

标签： rshinydownload