R 菜单项中包含内容的子菜单项-闪亮的仪表板

我正在开发闪亮的应用程序，我需要在一个菜单项中有子菜单项和菜单项中的内容

通过stackoverflow的研究，我发现了以下链接，

但上述解决方案中的问题是，每当我单击子菜单项时，菜单项下拉列表就会关闭。所以我需要再次单击菜单项，然后再次单击菜单项以获得子菜单项的下拉列表

请帮我解决这个问题

当我单击子菜单项时，下拉列表不应自动关闭

library(shiny)
library(shinydashboard)

convertMenuItem <- function(mi,tabName) {
  mi$children[[1]]$attribs['data-toggle']="tab"
  mi$children[[1]]$attribs['data-value'] = tabName
  if(length(mi$attribs$class)>0 && mi$attribs$class=="treeview"){
    mi$attribs$class=NULL
  }
  mi
}

ui <- dashboardPage(skin = "black", 

                dashboardHeader(
                  title = "test"), 
                dashboardSidebar(
                  sidebarMenu(id = "tabs",
                              convertMenuItem(menuItem("Data Scorecard", tabName = "scd",
                                                       menuSubItem("C1", tabName = "comp",icon = icon("angle-double-right")),
                                                       menuSubItem("C2", tabName = "consist",icon = icon("angle-double-right")),
                                                       menuSubItem("C3", tabName = "confirm",icon = icon("angle-double-right")),
                                                       menuSubItem("c4", tabName = "dupli",icon = icon("angle-double-right")),
                                                       menuSubItem("c5", tabName = "inte",icon = icon("angle-double-right")),
                                                       menuSubItem("c6", tabName = "accu",icon = icon("angle-double-right")),
                                                       menuSubItem("c7", tabName = "age",icon = icon("angle-double-right"))),"scd"))),


                dashboardBody(
                              tabItems(
                        tabItem(tabName = "scd", 
                                fluidRow(h4("scd"))),

                        tabItem(tabName = "comp",
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "consist",
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "confirm",
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "dupli",
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "inte", 
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "accu",
                                fluidRow(h4("c1"))),
                        tabItem(tabName = "age",
                                fluidRow(h4("c1")))
                )))

server <- function(input, output, session) { 
  }
shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
convertMenuItem 0&&mi$attribs$class==“树视图”）{
mi$attribs$class=NULL
}
惯性矩
}
ui使用menuItem（）的
startExpanded=TRUE
参数。它应该在整个会话期间保持菜单打开

menuItem("Data Scorecard", tabName = "scd", startExpanded = TRUE, ...)