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
              })