如何在闪亮的应用程序中将工作簿对象下载为.xlsx文件？

Question

我有一个闪亮的应用程序，用户可以在其中上传一个excel文件，然后可以下载其上传的文件，并添加一些其他单元格，其中包含有关对该文件进行的分析的信息。 我试图弄清楚如何使用workbook对象而不是data.frame对象进行此下载，因为基于行的分析，我计划使用xlsx包用某些颜色填充某些单元格。 我对data.frame对象的了解使我相信，当以.xlsx文件下载时，它们无法包含会使单元格着色的信息。 这是我的代码的简化版本：

服务器：

output$download <- downloadHandler(
        filename = "flagged.xlsx",
        content = function(file) {
            write_xlsx(wb, path = file)
        }
    )

用户界面：

shinyUI(fluidPage(
    useShinyjs(),
    # Application title
    titlePanel("Example"),

    sidebarLayout(
        sidebarPanel(
            downloadButton("download", "Download Flagged Excel")
        )
    )
))

如果wb是workbook对象，则此代码不起作用（我知道为什么，文档指出此函数采用data.frame对象）。 我如何以一种可以对单元进行服务器端样式设置的方式下载文件？ 是否可以下载工作簿对象，或者那里是否存在可以保留单元格格式的另一种数据类型？ 谢谢！