С помощью блестящего наблюдения событий с downloadHandler

Question

Я сталкиваюсь с проблемой использования наблюдателя для наблюдения за созданием файла CSV для загрузки.Я думаю, что в документации R-Studio говорится, что eventExpr может быть «сложным выражением внутри фигурных скобок».Это действительное выражение Expression?Я использую эту конструкцию 5 раз, и все пять условий срабатывают, когда запускается мое приложение блестяще.

    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

Я выполнил добавление действия журнала активности, добавив вызов функции журнала в качестве первого предложения функции содержимого для 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

Answer 2

Как вы заметили, все пять вызываются при запуске.Код не привязан к вводу $ или другому изменению, поэтому он просто запускается и сообщает, что он запущен .Подумайте, хотите ли вы, чтобы он сообщал о завершении загрузки, или если вы хотите запустить код при вводе пользователем.