Some `bs_theme` arguments are seemingly ignored by `page_sidebar`

Describe the problem

To be honest this is a null issue as it's fine to just use page_navbar(), but did lose me some time to work around.

Doesn't work:

library(bslib)
ui <- page_sidebar(
    title = "Cool app",
    theme = bs_theme(
        preset = "flatly",
        primary = "#95a5a6",
        success = "#3F2A56"
    ),
    sidebar = sidebar()
)
server <- function(input, output) {}
shinyApp(ui, server)

But page_navbar() works:

library(bslib)
ui <- page_navbar(
    title = "Cool app",
    theme = bs_theme(
        preset = "flatly",
        primary = "#95a5a6",
        success = "#3F2A56"
    ),
    sidebar = sidebar()
)
server <- function(input, output) {}
shinyApp(ui, server)

And other arguments (from the documentation) work with page_sidebar:

library(bslib)
ui <- page_sidebar(
    title = "Cool app",
    theme = bs_theme(
        bootswatch = "darkly",
        base_font = font_google("Inter"),
        navbar_bg = "#25443B"
    ),
    sidebar = sidebar()
)
server <- function(input, output) {}
shinyApp(ui, server)

Session Info

R version 4.4.1
bslib: 0.8.0

Start with the page_sidebar() and bs_theme() entry points, then compare their behavior with page_navbar() using the examples in the issue. Verify the preset, primary, and success arguments against the working bootswatch, font, and navbar_bg example; done means those arguments visibly affect page_sidebar() as expected.