shinydashboard无效

Question

我有一个简单的、闪亮的仪表板，侧菜单中有四个选项卡，出于某种原因，当我构建这个闪亮的应用程序时，单击侧菜单不会显示一个新页面，tab2的内容只会附加到tab1中。

虽然搜索堆栈溢出告诉我这个问题：Shinydashboars tabItems not working properly，但答案并不适用于我，因为我没有使用rmd，我也不打算将它托管到AWS服务器。

以下是供参考的代码：

ui <- dashboardPage(
dashboardHeader(title = "Study Dashboard"),
dashboardSidebar(
sidebarMenu(
  menuItem("Overall Objectives", tabName = "objectives"),
  menuItem("Wellpad Operator", tabName = "wellpad_operator"),
  menuItem("Wastewater Expert", tabName = "wastewater_expert"),
  menuItem("Freshwater Expert", tabName = "freshwater_expert"),
  menuItem("Environmental Impact", tabName = "environ_impact")
)
),
dashboardBody(
#Tab 1 Objective View
tabItems(
  tabItem(tabName = "objectives", 
          h2("Overall Objectives"),
          fluidRow(
            box(
              title = "Overall Objective Comparison", width = 6, solidHeader = TRUE,
              plotOutput("objective_plot")
            ),
            box(
              title = "Cost Category Breakdown", width = 6, solidHeader = TRUE,
              plotOutput("costbreakdown_plot")
            ),
            box(
              title = "Decision Variables", width = 12, solidHeader = TRUE,
              tableOutput("decision_table"))
          ))
),

#Tab 2 Wellpad Decision
tabItem(tabName = "wellpad_operator", 
        h2("Wellpad Operator") 
        ),

#Tab 3 Wastewater Expert
tabItem(tabName = "wastewater_expert",
        h2("Wastewater Expert")
        ),

#Tab 4 Freshwater Expert
tabItem(tabName = "freshwater_expert",
        h2("Freshwater Expert")
        ),

#Tab 5 Environmental Damages
tabItem(tabName = "environ_impact",
        h2("Environmental Impact"))
)
)

server <- function(input, output) {
#server side code that generates the plots
}

shinyApp(ui = ui, server = server)

谢谢你的帮助！

Answer 1

您需要将所有的tabItem放在tabItems中。试试这个：

dashboardBody(
    #Tab 1 Objective View
    tabItems(
      tabItem(tabName = "objectives", 
              h2("Overall Objectives"),
              fluidRow(
                box(
                  title = "Overall Objective Comparison", width = 6, solidHeader = TRUE,
                  plotOutput("objective_plot")
                ),
                box(
                  title = "Cost Category Breakdown", width = 6, solidHeader = TRUE,
                  plotOutput("costbreakdown_plot")
                ),
                box(
                  title = "Decision Variables", width = 12, solidHeader = TRUE,
                  tableOutput("decision_table"))
              )),
      #Tab 2 Wellpad Decision
      tabItem(tabName = "wellpad_operator", 
              h2("Wellpad Operator") 
      ),

      #Tab 3 Wastewater Expert
      tabItem(tabName = "wastewater_expert",
              h2("Wastewater Expert")
      ),

      #Tab 4 Freshwater Expert
      tabItem(tabName = "freshwater_expert",
              h2("Freshwater Expert")
      ),

      #Tab 5 Environmental Damages
      tabItem(tabName = "environ_impact",
              h2("Environmental Impact"))
    )
)