Я использую пакет Shiny GUI R. Я искал способ отображения сообщения типа "загрузка..." после нажатия кнопки actionButton. Для выполнения этой функции требуется несколько минут, поэтому мне нужно как-то проинформировать пользователя о том, что кнопка фактически вызвала какое-то событие. Теперь код server.R выглядит следующим образом:
DATA <- reactive({
if(input$DownloadButton>0) {
RunDownload()
} else {
NULL
}
})
output$Download <- renderText({
if(NROW(DATA())>0) {
paste0(Sys.time(),": ",NROW(DATA()), " items downloaded")
} else {
''
}
})
actionButton()
- это функция, которая загружает данные из Интернета. input$DownloadButton
- actionButton. Поэтому после нажатия кнопки пользователь ждет несколько минут и только затем видит сообщение о том, что загрузка прошла успешно. Я хотел бы показать сообщение "Загрузка..." сразу после нажатия кнопки actionButton, а затем другое сообщение, например paste0(Sys.time(),": ",NROW(DATA()), " items downloaded")
, когда выполнение завершено.