Я совершенно не знаком с Shiny, и я не могу получить textOutput для рендеринга, когда захочу.Shiny - Как сказать клиенту, когда процесс завершен
observeEvent(input$btnPersistencia, {
output$txtProtActual <- renderText("PROCESSING...")
print("This does print in console")
#SomeCodeHere that takes about 10 seconds to finish
output$txtProtActual <- renderText(paste("Archivo Persistencia Actual: ", basename(values$file), "\n Dim: ", isolate(input$sliderDimension), "\n Filtr: ", isolate(input$txtMaxFil)))
})
Текст не отображается «Обработка ...», а #SomeCodeHere работает. Я действительно не понимаю, почему. Разве это не работает?
Текст воспроизводится только ПОСЛЕ завершения наблюдения.. Я знаю это, потому что, если я удаляю SECOND renderText(), текст обрабатывает значение «Обработка ...», когда обработка завершена.
Если это нормальное поведение, есть ли способ принудительно выполнить рендеринг перед завершением функции наблюдения?
EDIT:
Есть еще один (любой) способ добиться того, чего я хочу?
Возможно, индикатор выполнения? http://shiny.rstudio.com/articles/progress.html – user5029763
Опубликуйте свой комментарий как полный ответ, и я проверю его как правильный ответ. Это делает именно то, что я хочу. –