Question

我的问题与下面的内容非常类似：

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

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

在我看到上述帖子之前，我确实尝试过以下方法：

#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...")))

然而，它也消失得太快。我不知道原因。有没有人有什么建议？

提前谢谢。

Answer 1

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

我在服务器功能中使用数据加载：

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

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

R Shiny在渲染表时显示“加载”

1 个答案: