Кнопки 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)

Загруженный файл должен иметь фрейм данных.