R 按钮csv/excel不'；它打开了一个空白页

按钮csv/excel打开一个空白页，而不是下载带有数据框的文件。需要下载dataframe 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)

---

server执行
rbind（df1，df2）
时，两个数据帧
df1
和
df2
必须具有相同的列名，顺序相同。我怀疑这就是问题所在。如果您需要更多帮助，请提供UI。谢谢您的回复。不知何故，相同的代码在另一台机器上工作。我发布了另一个问题。在此方面的任何帮助都将不胜感激。（）执行
rbind（df1，df2）
时，两个数据帧
df1
和
df2
必须具有相同的列名，顺序相同。我怀疑这就是问题所在。如果您需要更多帮助，请提供UI。谢谢您的回复。不知何故，相同的代码在另一台机器上工作。我发布了另一个问题。在此方面的任何帮助都将不胜感激。()