selectInput Window gets dark when within a "page_sidebar"+"nav_panel"

[Morten_Lorenzen]

Hi,
Why gets the selectInput Window dark when within a "page_sidebar"+"nav_panel"?
I can prevent this with an extra line theme = bs_theme(bootswatch = "darkly"), but is that the right way to do it?

# selectInput Window gets dark when within a "page_sidebar"+"nav_panel" 

library(shiny)
library(bslib)  # version 0.6.1

ui <- page_navbar(
  title = "My App",
  theme = bs_theme(bootswatch = "darkly", version = 5),
  
  nav_panel(
    title = "Page 1",
    
    page_sidebar(
     # theme = bs_theme(bootswatch = "darkly"),  # <---- prevents the selectInput Window to get dark
      title = "My dashboard",
      sidebar = sidebar(
        selectInput("name",
                    label = "Select data",
                    choices = c("a", "b", "c", "d"))
      ),
      "Main content area"
    )
  ),
  
  nav_panel(
    title = "Page 2",
    "Page 2 content area"
  )
)
shinyApp(ui, function(input, output) {})

[prubin]

If it works, it works. For what it's worth, you can add the argument selectize = FALSE to selectInput to get a white background in the control.

[Morten_Lorenzen]

Thanks for the reply Then I will go for the extra line ´theme = bs_theme(bootswatch = "darkly")´, to keep the functionality from selectize.js (´selectize = TRUE´).