Shiny Dashboard开发需求：仅选中特定侧边栏菜单时显示嵌入式网页

嘿，我来帮你搞定这个Shiny应用的菜单触发显示内容的问题～

你的核心需求是初始仪表盘空白，只有选中特定菜单路径（Tab 1→Cell Culture→Control Chart）才显示对应网站，后续还要支持切换不同嵌入式网站，原来的代码主要问题是没给子菜单项设置可被服务器捕捉的标识，而且一开始就会渲染内容。我给你调整后的代码，完全满足需求，还方便后续扩展：

ui <- dashboardPage(
  skin = "black",
  dashboardHeader(title = "Dashboard ", titleWidth = 450),
  dashboardSidebar(
    sidebarMenu(
      id = "sidebar_menu", # 关键：给侧边栏菜单加个ID，用来捕捉用户选中的菜单项
      menuItem(
        "Tab 1",
        icon = icon("medicine"),
        menuItem(
          "Cell Culture",
          menuSubItem("Control Chart", tabName = "control_chart") # 给目标子菜单设置唯一标识
        )
      )
    )
  ),
  dashboardBody(
    mainPanel(
      fluidRow(htmlOutput("frame"))
    )
  )
)

server = function(input, output, session) {
  # 用reactive来管理菜单项和对应URL的映射，后续加新网站直接在这里加就行
  selected_url <- reactive({
    switch(input$sidebar_menu,
           "control_chart" = "https://google.com",
           # 举个后续扩展的例子：
           # "another_submenu" = "https://your-other-site.com",
           NULL # 其他情况返回空
    )
  })
  
  output$frame <- renderUI({
    url <- selected_url()
    if (!is.null(url)) {
      # 只有选中目标菜单时，才渲染嵌入式网站
      tags$iframe(src = url, height = 800, width = "100%") # 用100%宽度适配仪表盘
    } else {
      # 初始状态或选中其他菜单时，显示空白（也可以改成提示文本，比如"请选择菜单项查看内容"）
      tags$div()
    }
  })
}

shinyApp(ui, server)

关键调整说明： #

• 侧边栏菜单的标识设置：给sidebarMenu加id，给目标子菜单Control Chart加tabName，这样服务器端能通过input$sidebar_menu准确获取用户的选中项。
• 可扩展的URL映射：用reactive和switch来管理菜单项和URL的对应关系，后续要加新的嵌入式网站，只需要在switch里新增一行"新菜单项tabName" = "对应网址"就行，非常省心。
• 条件渲染逻辑：只有当用户选中目标菜单时才渲染iframe，其他时候返回空白div，完美实现初始空白、按需显示的效果。
• 适配性优化：把iframe的宽度改成"100%"，会自适应仪表盘的宽度，比固定800px更美观。

内容的提问来源于stack exchange，提问作者user16368421