Как сделать выбор selectInput наложением dq_accordion?

Question

В следующем блестящем приложении выбор в selectInput скрыт dq_accordion.

library(shiny)
library(dqshiny)

ui <- fluidPage(
    dq_accordion(
      id = "foo",
      titles = list(
        "Something",
        "Something else"
      ),

      contents = tagList(
        tagList(
          selectInput("test", 
                      "Test", 
                      choices = names(mtcars))
        ),
        tagList(
          checkboxInput('foo2', "foo2")
        )
      )
    )
)
server <- function(input, output){}

shinyApp(ui, server)

Как я могу сделать выбор наложения dq_accordion, когда пользователь нажимает selectInput?

Я пытался использовать код CSS, указанный в в этом ответе , но безуспешно.

Answer 1

ui <- fluidPage(
  tags$head(
    tags$style(HTML(".selectize-control {position: static;}"))
  ),
  ......