navbarMenu() issue using Gollem

[HugoGit39]

Hi

So I want to add menus in the header using navbarMenu()

I work with Gollem but somehow I get dots in the left corner plus a text calling "left"....which confuses me

The bs4Dash sample code does work

So with Gollem its a bit tricky to share all the code but this is app_ui.R

#' The application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#'     DO NOT REMOVE.
#' @import shiny
#' @import bs4Dash
#' @import dplyr
#' @import tidyr
#' @noRd

#' The application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd

# app UI
app_ui <- function(request) {
  tagList(
    dashboardPage(
      header = bs4DashNavbar(
        navbarMenu(
          navbarTab(tabName = "Tab1", text = "Tab 1"),
          navbarTab(tabName = "Tab2", text = "Tab 2"),
          navbarTab(
            text = "Menu",
            dropdownHeader("Dropdown header"),
            navbarTab(tabName = "Tab3", text = "Tab 3"),
            dropdownDivider(),
            navbarTab(
              text = "Sub menu",
              dropdownHeader("Another header"),
              navbarTab(tabName = "Tab4", text = "Tab 4"),
              dropdownHeader("Yet another header"),
              navbarTab(tabName = "Tab5", text = "Tab 5"),
              navbarTab(
                text = "Sub sub menu",
                navbarTab(tabName = "Tab6", text = "Tab 6"),
                navbarTab(tabName = "Tab7", text = "Tab 7")
              )
            )
          )
        )
      ),
      sidebar = dashboardSidebar(
      ),
      body = dashboardBody(
        # Add main content or placeholders for app UI here
      )
    )
  )
}


#' Add external Resources to the Application
#'
#' This function is internally used to add external
#' resources inside the Shiny application.
#'
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function() {
  add_resource_path(
    "www", app_sys("app/www"),
  )
}

[HugoGit39]

I reproduced it with a new golem project using:

library(golem)
create_golem("Test")

golem::add_module(name = "tabs")

# R/mod_tabs.R
mod_tabs_ui <- function(id) {
  ns <- NS(id)
  tabItems(.list = lapply(1:7, function(i) {
    tabItem(tabName = sprintf("Tab%s", i), sprintf("Tab %s", i))
  }))
}

mod_tabs_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    # No specific server logic for tabs in this case
  })
}

# R/app_ui.R
app_ui <- function(request) {
  tagList(
    golem_add_external_resources(),
    dashboardPage(
      header = dashboardHeader(
        navbarMenu(
          id = "navmenu",
          navbarTab(tabName = "Tab1", text = "Tab 1"),
          navbarTab(tabName = "Tab2", text = "Tab 2"),
          navbarTab(
            text = "Menu",
            dropdownHeader("Dropdown header"),
            navbarTab(tabName = "Tab3", text = "Tab 3"),
            dropdownDivider(),
            navbarTab(
              text = "Sub menu",
              dropdownHeader("Another header"),
              navbarTab(tabName = "Tab4", text = "Tab 4"),
              dropdownHeader("Yet another header"),
              navbarTab(tabName = "Tab5", text = "Tab 5"),
              navbarTab(
                text = "Sub sub menu",
                navbarTab(tabName = "Tab6", text = "Tab 6"),
                navbarTab(tabName = "Tab7", text = "Tab 7")
              )
            )
          )
        )
      ),
      body = dashboardBody(mod_tabs_ui("tabs")),  # Use module here
      controlbar = dashboardControlbar(
        sliderInput(
          inputId = "controller",
          label = "Update the first tabset",
          min = 1,
          max = 4,
          value = 1
        )
      ),
      sidebar = dashboardSidebar(disable = TRUE)
    )
  )
}

# R/app_server.R
app_server <- function(input, output, session) {
  mod_tabs_server("tabs")  # Initialize module

  observeEvent(input$controller, {
    updateNavbarTabs(
      session,
      inputId = "navmenu",
      selected = paste0("Tab", input$controller)
    )
  },
  ignoreInit = TRUE
  )
}

[HugoGit39]

Resolved:

ThinkR-open/golem#1186