在 global.R 中加载外部对象时显示进度指示器

Question

背景

我有一个简单的应用程序，在global.R 中启动时会加载多个文件，加载数据文件的代码如下所示：

lst_dta <- lapply(X = seq_along(vec_dta_fls),
                                   function(i) {
                                       incProgress(
                                           amount = 1 / length(vec_dta_fls),
                                           message = paste("Reading file:", vec_dta_fls[i])
                                       )
                                       readr::read_rds(vec_dta_fls[i])

vec_dta_fls 包含源文件的文件路径。

问题

我想将此过程封装在withProgress 调用中，以提供有关进度的动态信息。

代码

withProgress(message = "Reading data files:",

             expr = {
                 lst_dta <- lapply(X = seq_along(vec_dta_fls),
                                   function(i) {
                                       incProgress(
                                           amount = 1 / length(vec_dta_fls),
                                           message = paste("Reading file:", vec_dta_fls[i])
                                       )
                                       readr::read_rds(vec_dta_fls[i])
                                   })
             })

错误信息

withProgress(message = "Reading data files:", expr = { 中的错误：
'session' 不是 ShinySession 对象。

注意事项

我知道这是因为我在响应式上下文中调用withProgress，正如linked article 中所建议的那样：

添加进度指示器最简单​​的方法是把 withProgress() 在 reactive()、observer() 或 renderXx() 的内部

有什么办法可以解决吗？对于这种特殊情况，我不想在响应式上下文中调用 withProgress，因为实际上我只想显示此加载消息一次。

Answer 1

我想这可以解决问题

server.R

library(shiny)
shinyServer(function(input, output, session) {

    load_data()

    output$title_loaded_from_global <- renderUI({
        strong(title_ui)
    })

    output$my_summary <- renderPrint({
        summary(data1)
    })

})

ui.R

library(shiny)
shinyUI(fluidPage(
    uiOutput("title_loaded_from_global")
    ,verbatimTextOutput("my_summary")
))

global.R

load_data <- function() {
    withProgress(message = 'Load data and title...', value = 0.5, {
        # Load data
        Sys.sleep(2)
        data1 <<- iris
        title_ui <<- "A great iris summary"
    })
}