在一个xlsx文件R中保存多个被动数据帧

我试图在一个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")
                                  }
                              )

---

output$downloadtable有人能帮我解决这个[问题]的扩展吗
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)

  }