nav_menu remains open after using nav_select

nav_menu remains open

The nav_menu remains open after using nav_select to update a nav_panel inside a nav_menu. The only way for users to close it is to click on the menu again.

library(shiny)
library(bslib)

ui <- page_navbar(
  title = "example",
  id = 'nav',
  nav_panel("a",
    fluidRow(actionButton("btn", "Go to navmenu item"))
  ),
  nav_menu("Menu",
    nav_panel("nested 1"),
    nav_panel("nested 2")
  )
)

server <- function(input, output, session) {
  observeEvent(input$btn, nav_select(id = "nav", selected = "nested 1"))
}

shinyApp(ui, server)

Session Info

─ Session info ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
 setting  value
 version  R version 4.2.2 (2022-10-31 ucrt)
 os       Windows 10 x64 (build 22621)
 system   x86_64, mingw32
 ui       RStudio
 language (EN)
 collate  English_United States.utf8
 ctype    English_United States.utf8
 tz       America/Los_Angeles
 date     2023-11-03
 rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
 pandoc   NA

Run the provided Shiny example to reproduce the open-menu behavior, then trace the bslib implementation of nav_menu and nav_select. Identify the navigation state change involved and add regression coverage if the existing tests provide a suitable location; done means selecting nested 1 closes the menu without requiring another click.