R Shiny：在splitLayout中选择输入

Question

当selectInput窗口小部件位于splitLayout内且multiple模式启用时，会出现问题。当宽度较小时，下拉选择区域会消失。

library(shiny)

ui <- fluidPage(
  splitLayout(selectInput("x","x",choices = LETTERS,selected = LETTERS,multiple = TRUE),
              br(),br(),br(),br(),br(),br(),br(),br(),br(),br(),br())
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

任何建议。感谢。