基于进度的renderText

Question

我希望Shiny App能够根据执行进度生成一些文本。

我在下面写一些东西。但是前RenderText中的内容永远不会显示。我也尝试过renderUI函数，它有一个问题，即第一个文本从未显示过。

任何输入将不胜感激。

            observeEvent(input$Req,{
              output$Help <- renderText({"AAA"}) #appears when program starts
              #...code to run 
              output$Help <- renderText({"BBB"}) #appears when program ends
              })