R Shiny 在渲染 table 时显示 'loading'

R Shiny displays 'loading' while rendering table

我的问题和下面的很相似:

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

抱歉,我没有足够的声誉来评论它,所以我创建了一个新问题。我的 Shiny 页面有一个 renderGvis() 和一个 renderDataTable() 来显示图表和一个 table。因为它必须先 load() 500 万行 table,所以需要一段时间才能显示出来。而且我必须有一些东西来表明它正在加载,否则用户可能会离开。我发现上面 post 非常有用,但加载消息消失得太快了。它消失和 table 出现之间的间隔大约是 20 秒。

在看到上面的 post 之前,我确实尝试了以下方法:

#server.R   firstData is a reactive function to get the data for 1st table
output$firstTable = reactive({
return(is.null(firstData()))
})
#ui.R
  conditionalPanel(
      condition = "output.firstTable",
      box(width = 12,
              h1("The data is loading..."))) 

不过,它也消失的太快了。我不知道原因。有没有人有什么建议?

提前致谢。

您可能对withProgress我在几个应用程序中使用这种方法进行大数据加载和长时间计算感兴趣。

我在服务器函数中使用数据加载作为:

stockdata<-withProgress(expr = {readRDS("sample.RDS")}
                        ,message = "Loading... Please wait")

http://shiny.rstudio.com/articles/progress.html