如何使 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)

当用户点击selectInput 时，如何使选择覆盖dq_accordion？

我尝试使用this answer中提供的CSS代码但没有成功。

Answer 1

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