R 在顶部选择下拉菜单

这是我闪亮的UI的简化。我的问题是SelectizeInput的下拉菜单被隐藏。要向下滚动有点痛苦。而且，它看起来不太好看。我试着用z指数把它带到前面，但没有任何成功

这是我的代码：

library(shiny)
runApp(list(
  ui = fluidPage(
    tabsetPanel(id = "tabs",
                tabPanel("Search",
                         fluidRow(
                           column(12,
                                  inputPanel(
                                    selectizeInput("s1", h4("Select State:"),
                                                   choices = state.name),
                                    tags$head(tags$style(".selectize-control.single { width: 400px; z-index: 1; }")),
                                    dateInput("day", h4("Input Date:"), value = Sys.Date())
                                  )
                           )
                         )
                )
    )),
  server = function(input,output,session) 
    {

  })
)

基本上，我希望SelectizeInput菜单像DateInput日历一样显示在顶部

谢谢你的帮助

---

Carlos

您可以使用

selectize.js

库中的选项

dropdownParent

可能是您要查找的内容：

library(shiny)
runApp(list(
  ui = fluidPage(
    tabsetPanel(id = "tabs",
                tabPanel("Search",
                         fluidRow(
                           column(12,
                                  inputPanel(
                                    selectizeInput("s1", h4("Select State:")
                                                   , options = list(dropdownParent = 'body')
                                                   , choices = state.name),
                                    tags$head(tags$style(".selectize-control.single { width: 400px; z-index: 1; }")),
                                    dateInput("day", h4("Input Date:"), value = Sys.Date())
                                  )
                           )
                         )
                )
    )),
  server = function(input,output,session) 
  {

  })
)

或者，您可以查看CSS和类似于

溢出

属性的内容。看见所以在这种情况下，使用

tags$head(tags$style(".tab-content {overflow: visible;}")),

---

+1 FWIW，溢出方法似乎确实有效。CSS不起作用。@MatthewPlourd是的，溢出会起作用，但最好使用内置的selectize选项使菜单成为

主体的子菜单。我尝试将样式应用于wellpanel和select输入，但没有应用于tab面板。谢谢，谢谢！这正是我所需要的：）