Question

我是Shiny的新手，遇到了一个无法找到答案的问题。基本上，我有一个Shiny应用程序，可以在循环中进行一些长时间的计算，并且希望它每隔几次迭代就输出一个“进度报告”。但是，即使我在循环中重新分配了反应式变量，输出也不会更新，直到循环（或整个函数？）完成为止。

这是我的意思的简化测试用例：

library(shiny)

# Basic interface
ui <- fluidPage(
     actionButton("run", "Run"),
     textOutput("textbox")
)

# Basic server with loop
server <- function(input, output) {

  textvals=reactiveValues(a=0)

  observeEvent(input$run, {
    for(i in 1:10){
      textvals$a=i   # Expect output to update here, but doesn't
      Sys.sleep(0.1) # Slight pause so isn't instantaneous
    }
  })

   output$textbox <- renderText({
      textvals$a
   })
}

# Run the application 
shinyApp(ui = ui, server = server)

我希望循环执行后显示会更新1、2、3，... 10。取而代之的是，它仅从0跳到10。如何在循环中强制执行更新？

谢谢。

Answer 1

使用invalidateLater可以使您获得所需的东西。我认为这不是最短的方法，但是它可以帮助您找到更好的解决方案。

library(shiny)

# Basic interface
ui <- fluidPage(
  actionButton("run", "Run"),
  textOutput("textbox")
)

# Basic server with loop
server <- function(input, output, session) {

  textvals <- reactiveVal(0)
  active <- reactiveVal(FALSE)

  output$textbox <- renderText({
   textvals()
  })

  observe({
    invalidateLater(1000, session)
    isolate({
      if (active()) {
        textvals(textvals() + 1)
        if (textvals() > 9) {
          active(FALSE)
        }
      }
    })
  })

  observeEvent(input$run, {
    active(TRUE)
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

顺便说一句，反应式和for循环并不能很好地进行。这可能会有所帮助：https://gist.github.com/bborgesr/e1ce7305f914f9ca762c69509dda632e

如何在R Shiny的for循环内更新无功输出

1 个答案: