我从数据库中初始加载数据server.R
需要几秒钟。在完成此操作之前,显示的页面会失真(选择框中的数据错误,并且框的位置很奇怪,见下文)。
我想显示不同的页面(或至少在我的第一个显示的选项卡中显示不同的内容),直到数据完全加载。
我考虑过conditionalPanel
使用基于专用全局变量 (initial_loading_done) 的条件,但是无论我尝试放置它,conditionalPanel
它都不起作用。
这是我的 UI.R 的结构:
shinyUI(
dashboardPage(
dashboardHeader(title = "Title"),
dashboardSidebar(
sidebarMenu(
menuItem("Tab1", tabName = "Tab1",icon = icon("dashboard")),
menuItem("Tab2", tabName = "Tab2", icon = icon("bar-chart-o"))
)
),
dashboardBody(
includeCSS("custom_css.css"),
tabItems(
tabItem(tabName = "Tab1",
fluidRow(<content>),
mainPanel(
fluidRow(<content>)
)
),
tabItem(tabName = "Tab2",
fluidRow(<content>),
mainPanel(
dataTableOutput('my_data_table')
)
)
)
)
)
)