Question

我受到使用观察者观察创建CSV文件以供下载的操作的过程的挑战。我认为R-Studio文档声明eventExpr可能是“花括号内的复杂表达式”。这是一个有效的eventExpression吗？我使用这个构造5次，当我的shinyApp启动时，所有五个条件都被触发。

scripts.test

有任何想法或建议吗？

Answer 1

如你所知，所有五个人都在启动时被召唤。代码与输入$或其他更改无关，因此它只会运行并报告已启动。考虑是否要在下载完成后报告，或者如果要在用户输入上运行代码。

Answer 2

我通过添加日志函数调用作为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

使用r shiny observeEvent和downloadHandler

2 个答案: