使用source()函数添加进度条

时间:2015-05-14 16:02:24

标签: r progress-bar shiny

在我闪亮的应用程序开始时,我运行一个源函数来加载和处理我的数据。

一切正常,但是当用户启动应用程序时,加载时间大约为10秒。我想添加一个进度条。

我看过教程,但总是与观察或反应功能集成,这不是我的情况。

shinyServer(function(input, output,session) {
  source("/srv/shiny-server/Data_base/import.r")    
})

如何添加进度条?

1 个答案:

答案 0 :(得分:0)

也许此链接有助于:https://github.com/daattali/shiny-server/blob/master/loading-screen/app.R

基本上你应该在反应内容之外添加这个代码:

 appCSS <- "
#loading-content {
  position: absolute;
  background: #000000;
  opacity: 0.9;
  z-index: 100;
  left: 0;
  right: 0;
  height: 100%;
  text-align: center;
  color: #FFFFFF;
}
"

这到ui方面:

useShinyjs(),
inlineCSS(appCSS),

# Loading message
div(
  id = "loading-content",
  h2("Loading...")
),

这到服务器端(将隐藏&#34;加载&#34;内容加载后的消息:

 hide(id = "loading-content", anim = TRUE, animType = "fade")