`accordion(open=TRUE)` is applied to nested accordions

In the following example, Accordion 2 should be open but the nested accordion within Accordion 2 should have all of its panels closed.

library(shiny)
library(bslib)

ui <- page_fluid(
  accordion(
    open = "Accordion 2",
    accordion_panel("Accordion 1"),
    accordion_panel(
      "Accordion 2",
      accordion(
        open = FALSE,
        accordion_panel("Nested accordion 1"),
        accordion_panel("Nested accordion 2")
      )
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

Reproduce the supplied Shiny app and start at the accordion() and accordion_panel() entry points. Trace how the outer open setting affects nested accordions. Done means Accordion 2 opens while both panels in its nested accordion remain closed when the nested accordion uses open = FALSE.