selectInput within navs_tab_card: options cut off

[Nefcairon]

Hello,

When including selectInput in a navs_tab_card, the open selectbox doesn't show all of its options:

Here is the minimal reprex:

library(shiny) 
library(bslib) 
library(shinyWidgets)   

ui <- bslib::page_navbar(
  title = "MyApp",
  selected = "Orders",
  tabPanel(
    title = "Orders", 
    bslib::navs_tab_card(
      nav(
        "criteria", 
        selectInput(
          inputId = "year",
          selectize = TRUE,
          label = NULL,
          choices = 1:10
        )
      )
    ),
    tags$p("wdwd ggerg gdf gdg d fgdgdgdfgdfg dfg wdwd ggerg 
           gdf gdg d fgdgdgdfgdfg dfg wdwd ggerg gdf gdg d 
           fgdgdgdfgdfg dfg wdwd ggerg gdf gdg d fgdgdgdfgdfg dfg ")
  )
)
server <- function(input, output) { }
shinyApp(ui, server)

---

Is this a bug? If not, how can I solve this?

Edit: Similar problems were previously solved via adding style= "overflow:visible;" . but that isn't possible here as bslib::navs_tab_card doesn't take "style" as parameter.

^{Referred here by rstudio/bslib}