Добавление горизонтальной полосы прокрутки в selectInput

Question

Можно ли добавить горизонтальную полосу прокрутки к selectInput с фиксированным количеством элементов (например, размер = 5)?

Некоторые элементы слишком длинные и не будут отображаться полностью, и я не хочу изменять ширину selectInput.

Я попытался добавить его с помощью:

tags$head(tags$style(HTML('.shiny-bound-input{overflow-x: scroll;}')))

но безуспешно ... Есть ли решение?

library(shiny) 
u <- fluidPage(   

  tags$head(tags$style(HTML('.shiny-bound-input{overflow-x: scroll;}'))),

  selectInput(inputId = "in", label = "Choose", choices = c('Short','A very short sentence.'), 
              selectize = F, size = 5, width = "150px")

)

s <- function(input,output){} 

shinyApp(ui=u,server=s)

Редактировать : Кажется, это зависит от браузера.Например, в Opera и Chrome есть горизонтальная полоса.В Firefox и IE нет.