1

我正在开发一个 Shiny 应用程序，我在其中使用furrr::和将耗时的计算拆分为多个会话future。我想在每次（或每 n 个）计算后更新进度条。我发现以下示例会更新进度条，但仅在会话完全完成后才会更新。这意味着 6 次更新在最后几乎同时发生。对于非闪亮版本，存在.progress = T导致我想要的更新的参数（参见第二个示例）。

有没有类似的东西可以用于闪亮的进度条？如果更新仅取决于第一个工作人员，那甚至会很好，因为所有工作人员的计算几乎相同。

提前感谢您的帮助！

示例 1：

library(shiny)
library(progressr)

app <- shinyApp(
  ui = fluidPage(
    plotOutput("plot")
  ),
  
  server = function(input, output) {
    output$plot <- renderPlot({
      X <- 1:24
      future::plan(future::multisession(workers = 6))
      
      withProgressShiny(message = "Calculation in progress",
                        detail = "This may take a while ...", value = 0, {
                          p <- progressor(along = X)
                          y <- furrr::future_map(X, function(x) {
                            Sys.sleep(1)
                            p()
                          })
                        })
      plot(cars)
    })
  }
)

示例 2：

X <- 1:24

future::plan(future::multisession(workers = 6))
      

y <- 
  furrr::future_map(X, function(x) {Sys.sleep(1)
    p()
    }, .progress = T)
      
future::plan(future::sequential())
4

0 回答 0