如何在閃亮的儀表板側欄中手動展開子菜單

Question

我正試圖在閃亮的儀表板中手動擴展側欄中的子菜單。 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擴展子菜單項中

Answer 1

我幫助自己定義了一些JavaScript，使用了JavaScript接口extendShinyjs ：

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

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

選擇menuItem i

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

選擇menuSubItem i

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