我使用shiny 的GUI R软件包.我正在寻找一种方式来显示类似"加载…"这样的消息在按下操作按钮之后.该功能需要几分钟才能执行,因此我需要以某种方式通知用户,该按钮实际上触发了一些事件.现在是服务器.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之后,执行结束时会出现另一条类似paste0(Sys.time(),": ",NROW(DATA()), " items downloaded")
的消息.