r-如何使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？

我尝试使用这个答案中提供的CSS代码，但没有成功。

Answer 1

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