按下按钮后的迭代文本更新

Question

我希望状态textOutput在子功能完成后迭代更新。我知道withProgress，但我希望这会出现在textOutput中。

我相信因为闪亮是单线程的，所以下面的方法不起作用（即迭代渲染）。

library(shiny)

ui<-(fluidPage(
  verbatimTextOutput("res1"),
  actionButton("submit","Submit")
))


server<-(function(input, output,session) {

observeEvent("submit",{

  status_text = c("starting...")
  output$res1 = renderText(status_text)
  Sys.sleep(1)
  status_text = c(status_text," continuing...")
  output$res1 = renderText(status_text)
  Sys.sleep(2)
  status_text = c(status_text,"done")
  output$res1 = renderText(status_text)

  })

})

runApp(list(ui=ui,server=server))

此外，我在renderText检查加载过程中设置的变量时没有成功。我相信invalidateLater()可能会有所帮助，但我也无法正常工作。