【问题标题】：how to manually expand a submenu in a shiny dashboard side bar如何在闪亮的仪表板侧栏中手动展开子菜单
【发布时间】：2015-12-04 13:46:51
【问题描述】：

我正在尝试在闪亮仪表板的侧边栏中手动展开子菜单。 updateTabItems 函数仅适用于普通菜单，不适用于嵌套菜单。

这是显示问题的基本示例（从updateTabItems 文档修改）。如果我单击“切换选项卡”，它会切换菜单，但不会展开具有子菜单的第一个菜单。似乎它只选择了子菜单但没有展开树。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"),
        menuSubItem("Sub Menu 1",icon = icon("folder-open"), tabName = "subMenu1")
      ),
      menuItem("Widgets", tabName = "widgets", icon = icon("th"))
    ),
    actionButton('switchtab', 'Switch tab')
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
        h2("Dashboard tab content")
      ),
      tabItem(tabName = "widgets",
        h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$switchtab, {
    newtab <- switch(input$tabs,
      "subMenu1" = "widgets",
      "widgets" = "subMenu1"
    )
    updateTabItems(session, "tabs", newtab)
  })
}

shinyApp(ui, server)
}

我想手动展开树，选择菜单和子菜单。欢迎任何建议。谢谢。

更新：

完整解决方案的工作代码位于Shiny expanding submenu items manually

【问题讨论】：

标签： javascript r shiny shinydashboard

【解决方案1】：

我帮助自己定义了一些 JavaScript，使用 JavaScript 接口 extendShinyjs in shiny：

js$selectMenuItem(0)
js$selectMenuSubItem(2)

useShinyjs(), 
extendShinyjs(text = jsSelectMenuItem), 
extendShinyjs(text = jsSelectMenuSubItem)

选择菜单项 i

jsSelectMenuItem <- "shinyjs.selectMenuItem = function(i){
    setTimeout(function(){
        $('.treeview > a').eq(i).click();
    }, 200);
}"

选择菜单子项 i

jsSelectMenuSubItem <- "shinyjs.selectMenuSubItem = function(i){
    setTimeout(function(){
        $('.treeview-menu > li > a').eq(i).click();
    }, 800);
}"

【讨论】：

感谢您的解决方案。最终我找到了一种方法来使用 shinyjs shinyjs::delay(100, shinyjs::addClass("admin","active")) whre “admin” 是菜单的 id。
@Geovany 菜单的 id 到底是什么意思？ MenuItems 和 MenuSubItems 没有 ID，所以我有点困惑。
@marcopah 我说的是menuItemOutput 函数，它允许您在服务器端创建菜单。在该函数中，唯一的参数是utputId。