R 如何使用用户输入更新shiny应用程序中的输出

2天前我才开始使用shiny，所以如果这是一个非常幼稚的问题，请原谅我，但我环顾四周，找不到简单的答案。我正在创建一个需要一段时间才能完成的应用程序。我想用程序的中间步骤更新输出。我可以在程序完成后打印到输出，但如何打印中间步骤

例如，在下面的最小应用程序代码中，它会在10秒后打印数字1到10，但如何使它每隔一秒打印一次

library(shiny)

runApp(list(
  ui = basicPage(
    h2('Multiple output'),
    actionButton("goButton", "Go!"),
    textOutput("out")
  ),
  server = function(input, output) {
    output$out = renderText({
      if(input$goButton == 1 ) {
        msg = NULL
        for(i in 1:10) {
          Sys.sleep(1)
          msg = paste(msg,i)
        }
        msg
      }
    })
  }
))

---

这是shiny论坛上非常流行的请求，堆栈溢出的边界不够宽，无法显示详细的答案（请原谅，Fermat）。诀窍是使用javascript检查类

是否繁忙

 var isBusy = $('html').hasClass('shiny-busy');

Joe Cheng有一个样本

您也可以在shiny论坛中搜索“进度条”。

---

你可以考虑使用来自SyykySkyPakGe的警报来显示警报吗？

< P>谢谢你的帮助。我发现这条线最符合我的要求

---

实际上，我最终使用了invalidateLater，我不想显示警报。更像是进程中的日志条目。