显示不同的屏幕直到闪亮的应用程序加载

Question

我闪亮的仪表板应用需要1.20分钟才能加载，因为它有很多标签，每个标签都使用数据库的一个子集。我尝试使用显示here的示例。我的代码如下：

In global.R

load_data <- function() {
    Sys.sleep(80)
    hide("loading_page")
    show("tab-content")
}

在ui.R

ui <- dashboardPage(skin = "green",
                    dashboardHeader(
                        title = "ABC",titleWidth = 225
                    ),
                    dashboardSidebar(
                        width = 225,
                        sidebarMenu(id = "tabs",
                                    menuItem("MY MONTHLY REPORTS", tabName = "myweeklyrep", icon = shiny::icon("compass")),
                        )
                    ),
                    dashboardBody(
                                  fluidPage(
                                      useShinyjs(),
                                      div(
                                          id = "loading_page",
                                          h4("Loading data...Please wait...")
                                      ),
                                      hidden(
                                          div(
                                              id = "tab-content"  
                                          )
                                      )
                                  ),
                                  tabItems(
                                      tabItem(
                                          tabName="myweeklyrep",

                                         #the UI code continues

在server.R

中

                  server <- function(input, output, session) ({
                                         session$onSessionEnded(function(){
                                             stopApp()
                                         })
                                         load_data()

我面临两个不同的问题：

1. 标签内容页面（加载的第一页）仍然显示，
2. 数据库的加载实际上会休眠30秒并开始发布，这会将加载应用程序所需的时间增加到1分50秒。

不知道我哪里出错了。