将R闪亮输出导出到多张单张excel。

Question

我已经构建了一个应用程序，它根据所选的过滤器提供输出数据表。 假设我更换过滤器10次，它给了我10个结果。 我需要将结果存储在10张单个Excel中。

例如： 选择过滤器选项：A 获取输出：Output1 单击“下载”按钮。 将结果保存为sheetname：test1，excel：sample1.xlsx

现在我选择过滤选项：B 获取输出：Output1 单击“下载”按钮。 将结果保存为sheetname：test2，excel：sample1.xlsx

这是我的代码

output$downloadData1 <- downloadHandler(
         filename = function() 
             {  paste('Sample','_', Sys.Date(), ".xlsx", sep="") }, 
                content = function(file) {
                write.xlsx(makeTable(), file, sheetName =input$sampleselect, row.names = FALSE , append = TRUE)
             }) 

sampleselect是过滤器选择，我也将其作为工作表名称传递。

目前，此代码会抛出唯一的Excel文件。 即对于过滤器A：它创建一个Excel Sample.xlsx，对于过滤器B：它创建一个名为Sample.xlsx的Excel

提前致谢。