Блестящая вкладка navbarPage внутри navbarMenu остается выделенной и не может быть выбрана снова

Итак, я создаю блестящее приложение, используя пользовательский интерфейс navbarPage. Я использую tabsetPanel внутри tabPanels navbarMenu, и здесь у меня странное поведение.

Все загружается нормально и работает нормально, за исключением того, что после выбора второй вкладки внутри navbarMenu она остается выделенной и не может быть выбрана снова.

require(shiny)
require(bslib)
require(htmltools)

ui <- navbarPage(
    theme = bs_theme(version = 5),
    header = list(assets()),
    title = "Hello Stack",
    id = "main-menu",
    navbarMenu(
      "Plots",
      tabPanel(
        "Peacekeeping Activities",
        tabsetPanel(
          id = "type-act",
          type = "pills",
          tabPanel(
            "Aggregated",
            "Here come modular inputs to select and group missions",
            sliderInput(
              "act_years",
              "Timerange",
              min = as.Date("1989", format = "%Y"),
              max = as.Date("2018", format = "%Y"),
              value = c(as.Date("1989", format = "%Y"), as.Date("2018", format = "%Y")),
              timeFormat = "%Y"
            ),
            textInput("example", "Group 1"),
            textInput("example2", "Group 2")
          ),
          tabPanel(
            "Mission",
            "Mission inputs where you can select a specific mission and",
            textInput("mission", "Select missions")
          )
        )
      ),
      tabPanel(
        "Engagement Categories",
        tabsetPanel(
          id = "type-ec",
          type = "tabs",
          tabPanel(
            "Aggregated",
            "Here come modular inputs to select and group missions",
            sliderInput(
              "ec_years",
              "Timerange",
              min = as.Date("1989", format = "%Y"),
              max = as.Date("2018", format = "%Y"),
              value = c(as.Date("1989", format = "%Y"), as.Date("2018", format = "%Y")),
              timeFormat = "%Y"
            ),
            textInput("examplee23", "Group 1"),
            textInput("examplee2", "Group 2")
          ),
          tabPanel(
            "Mission",
            "Mission inputs where you can select a specific mission and",
            numericInput("mission_num", "Numbers lol", 5)
          )
        )
      )
    ),
    navbarMenu(
      "Missions",
      tabPanel(
        "Mission overview",
        shiny::h3("Here comes overview by continent, timeranges")
      ),
      tabPanel(
        "Data coverage",
        shiny::h3("SG report coverage per mission (maybe: links to UN Docs)")
      ),
      tabPanel(
        "Activity map",
        conditionalPanel(condition = "window.innerWidth < 1000 || window.innerHeight < 720",
                         div(
                           class = "outer",
                           tags$style(type = "text/css", "#map {height: calc(100vh - 110px) !important;}"),
                           leafletOutput("map")
                         ))
      )
    ),
    tabPanel(
      "About",
      shiny::h3("Info about the data, collection, funding, documentation")
    )
  )

server <- function(input, output) {}

shinyApp(ui, server)

Я не уверен, что упускаю что-то серьезное. Это не реплицируется для другого navbarMenu, поэтому я думаю, что это связано с тем, что я использую наборы вкладок, вложенные внутри navbarMenu.

Если это так, то какой другой способ получить эту боковую панель ввода с двумя разными вкладками для двух разных наборов входных данных для вывода графика, который будет располагаться в правой части страницы?