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

时间:2017-05-25 22:51:18

标签: r excel shiny

我已经构建了一个应用程序,它根据所选的过滤器提供输出数据表。 假设我更换过滤器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

提前致谢。

0 个答案:

没有答案