menuItem( ) do not collapse when using renderMenu( )

[srgmld]

When creating a dynamic menu which render on the server using renderMenu( ) function, the menuItem( ) with menuSubItem( ) does not respond to the collapse action.

Once the menuItem( ) is expanded it is not possible to collapse it.

Any suggestions?

ui <-  dashboardPage(
  title = "Indicadores",
  header = dashboardHeader(
    title = dashboardBrand(
      title = "Terminales",
      color = "primary"
    )
  ),
  sidebar = dashboardSidebar( 
    sidebarMenu(id = "login",
                menuItem(
                  "Login",
                  tabName = "login",
                  icon = icon("key")
                )
    ),
    sidebarMenuOutput("menu") ### Menu principal ----
    
  ),
  ## Body ----
  
  body = dashboardBody(
    tabItems(
      tabItem(tabName = "login"
      ),
      ###  Formacion Trenes ----
      tabItem(
        tabName = "panel1_1"#,
        # param_panel1_1
      ),
      ### Producción Terminales  ----
      tabItem(
        tabName = "panel2"#,
        # param_panel2
      ),
      tabItem(
        tabName = "panel2_2"#,
        # param_panel2_2
      ),
      tabItem(
        tabName = "panel2_3"#,
        # param_panel2_3
      ),
      tabItem(
        tabName = "panel2_4"#,
        # param_panel2_4
      ),
      tabItem(
        tabName = "panel3"#,
        # param_panel3
      )
    )
  )
)

# SERVER ----

server <- function(input, output, session) {
 
  
  output$menu <- renderMenu({
    sidebarMenu(
      id = "sidebarmenu",
      sidebarHeader("Datos"),
      menuItem(
        "Formación",
        icon = icon("train"),
        tabName = "panel1_1"
      ),
      menuItem(
        "Producción Terminales",
        icon = icon("list"),
        # tabName = "panel2"
        # startExpanded = TRUE,
        # collapsible = TRUE,
        menuSubItem(
          text = "Selección Día",
          tabName = "panel2",
          icon = icon("calendar")
        ),
        menuSubItem(
          text = "Clientes",
          tabName = "panel2_2",
          icon = icon("group")
        ),
        menuSubItem(
          text = "Productos",
          tabName = "panel2_3",
          icon = icon("lemon")
        ),
        menuSubItem(
          text = "Terminales",
          tabName = "panel2_4",
          icon = icon("signs-post")
        )
      ),
      menuItem(
        "Finanzas",
        icon = icon("money-bill"),
        tabName = "panel3"
      )

    )
  })
  
  
}

shinyApp(ui, server)

[adisarid]

Related to #314