Блестящее сохранение нескольких реактивных фреймов данных в одном файле xlsx R

Question

Я пытаюсь сохранить два фрейма данных в одном файле xlsx, каждый на другом листе. Дело в том, что каждый фрейм данных является реактивным объектом, который зависит от одной и той же кнопки действия для их генерации. Код в загрузке выглядит следующим образом:

output$downloadtable <- downloadHandler(
                                  filename = function(){
                                    paste("file.csv")
                                  },
                                  content = function(file){
                                       write.xlsx(dataframe1(), file, row.names = FALSE, sheetName = "Hoja1")
                                       write.xlsx(dataframe2(), file, row.names = FALSE, append = TRUE, sheetName = "Hoja2")
                                  }
                              )

Проблема в том, что я получаю в своем файле Excel только лист "Hoja2" со вторым фреймом данных, а не с первым ... Кто-то знает, что может ошибаться с этим?

Answer 1

library(openxlsx)

filename = function() {
    "mydata.xlsx"
  },
  content = function(file) {

g= openxlsx::createWorkbook()
   openxlsx::addWorksheet(wb,"Hoja1")
   openxlsx::writeData(wb,"Hoja1",dataframe1())

   openxlsx::addWorksheet(wb,"Hoja2")
   openxlsx::writeData(wb,"Hoja2",dataframe2())


   openxlsx::saveWorkbook(g,file)

  }