Dynamic menuSubItems with apply() adds some extra text

[shahreyar-abeer]

Code

menus = data.frame(
  names = c("menu1", "menu2")
)

sub_menus = data.frame(
  names = c("sub1", "sub2")
)

library(shiny)
library(bs4Dash)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    skin = "light",
    sidebarMenu(
      apply(menus, 1, function(menu) {
        menuItem(
          text = menu["names"],
          icon = icon("bars"),
          
          apply(sub_menus, 1, function(sub) {
            
            menuSubItem(
              text = sub['names'],
              icon = icon('chevron-right')
            )
          })
        )
      })

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

This code produces the following app.
There an additional 'treeview-link' text below the subItems

[DivadNojnarg]

I pushed a fix. Please download bs4Dash on the dev branch and use lists:

subitems <- lapply(1:5, function(i) {
    menuSubItem(text = i)
})

items <- lapply(1:2, function(i) {
    menuItem(
        text = i, 
        tabName = i,
        .list = if (i == 2) subitems,
        icon = icon("folder-open"))
})

library(shiny)
library(bs4Dash)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
        skin = "light",
        sidebarMenu(.list = items)
    ),
    dashboardBody(
        tabItems(
            tabItem(tabName = 1, "Tab 1"),
            tabItem(tabName = 2, "Tab 2")
        )
    )
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)

[shahreyar-abeer]

Thanks for the fix!