R Shiny : display “loading…” message while table is being rendered

Question

在 Rstudio Shiny 中，我得到了一些 renderDataTable通过 RMySQL 从数据库中获取信息的调用。一些查询可能需要几秒钟才能完成，我想添加一条“正在加载...”消息，其中表格将在等待期间最终呈现。

这个问题和这个类似: R shiny: display "loading..." message while function is running

但不是使用 $('html').hasClass('shiny-busy')作为条件，我想以某种方式以 renderDataTable 的状态为条件渲染。

有什么想法吗？

Answer 1

寻找 recalculating 类:

ui <- fluidPage(
    actionButton('reload', 'reload'),
    dataTableOutput('dtable_out'),
    conditionalPanel("$('#dtable_out').hasClass('recalculating')", 
        tags$div('Loading ... ')
    )
)

server <- function(input, output, session) {

    output$dtable_out <- renderDataTable({
        input$reload
        Sys.sleep(2)
        data.frame(a=1:10, b=letters[1:10])
    })

}

runApp(list(ui=ui, server=server))