R闪亮：在呈现表时显示“加载...”消息 [英] R shiny: display “loading…” message while table is being rendered

问题描述

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

In Rstudio Shiny, I got some renderDataTable calls that fetch information from a database via RMySQL. Some of the queries may take a few seconds to complete, and I would like to add a "Loading..." message where the table is going to finally render while waiting.

这个问题类似于这个：
R闪亮：显示加载...功能正在运行时的消息

This question is similar to this one: R shiny: display "loading..." message while function is running

但不是使用 $（'html'）hasClass（'shiny-busy'）作为条件，我想以某种方式对 renderDataTable 呈现的状态进行调整。

But instead of using $('html').hasClass('shiny-busy') as a condition, I would like to somehow condition on the status of the renderDataTable rendering.

任何想法？

推荐答案

寻找重新计算

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))

这篇关于R闪亮：在呈现表时显示“加载...”消息的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！