闪亮等待SQL返回的进度条

Question

我有一些SQL查询可能需要1-3分钟才能返回结果，所以我需要在Shiny中实现一个进度条来警告操作员

最简单的方法是什么？

谢谢

这是我的UI.R：

shinyUI(pageWithSidebar(

headerPanel("Measures"),
sidebarPanel(
      radioButtons("base", "Select DB", 

     c("base1"="base-1","base2"="base-2")),
     uiOutput("selectComp")
  ),


 mainPanel(

     plotlyOutput("plot")
       ))

这是我的服务器.R

 Library(RODBC) 

 shinyServer(function(input,output){

 refDataFrame <- reactive({

 if(input$base == "base1")   {

 data_test <- odbcConnect(input$base, uid="login")   

 Ref_comp <- sqlQuery(data_test, paste ("SQL query1"),as.is=T)
 odbcClose(data_test)

}

if(input$base == "base2")   {

 data_test <- odbcConnect(input$base, uid="login")   

 Ref_comp <- sqlQuery(data_test, paste ("SQL query2"),as.is=T)
odbcClose(data_test)

}

Ref_comp
})

output$selectComp <- renderUI(
selectInput("comp","Select step", 
                 choices=refDataFrame()[["STEP_NAME"]])
          )

 })