使用source（）函数添加进度条

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

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

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

shinyServer(function(input, output,session) {
  source("/srv/shiny-server/Data_base/import.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;
}
"

并将其发送到服务器端（将在加载内容后隐藏“加载”消息：

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

---

请注意，指向我的加载屏幕应用程序的链接已被删除。您可以在此处访问代码（及其解释）：

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