将r Shiny ObserveEvent与downloadHandler一起使用

Question

使用观察员观察创建CSV文件以供下载的操作的过程给我带来了挑战。 我认为R-Studio文档指出eventExpr可能是“花括号内的复杂表达式”。 这是有效的eventExpression吗？ 我使用此构造5次，并且在我的ShinyApp启动时将触发所有五个条件。

    observeEvent(
        {
        ### Observe the download handler preparing for CSV download
        output$Wire_Centers.csv <- downloadHandler(
            filename = "Wire_Centers.csv",
            content = function(file) {
                write.table(WC_List_2(), file, row.names=FALSE, col.names = TRUE, sep=',') ### end write.table
                } # End content function
            ) # End downloadHandler
            }, { # End observered event, start log
        logUse("WC_Download")
        }) # end observeEvent output condition

有什么想法或建议吗？

Answer 1

如您所述，这五个都在启动时被调用。 该代码与输入$或其他更改无关，因此它只运行并报告已启动 。 考虑是否要在下载完成后报告它，还是要根据用户输入运行代码。

Answer 2

通过将log函数调用添加为downloadHandler的内容函数的第一子句，我完成了添加活动日志操作的操作。 调用logUse("WC_Download")根据需要进行操作，并且适当地增加了活动日志。

    output$Wire_Centers.csv <- downloadHandler(
        filename = "Wire_Centers.csv",
        content = function(file) {
            logUse("WC_Download")
            write.table(WC_List_2(), file, row.names=FALSE, col.names = TRUE, sep=',') ### end write.table
            }, # End content function
        ) # End downloadHandler