r - Shiny 的选择长列表的输入框大小

Question

我有一个很长的列表，我想将其放入 Shiny 中的 selectInput 中，但它的框占用了太多空间，因为它显示了所有选定的元素，而不是固定的尺寸。

long_list = c("Sed","ut","perspiciatis,","unde","omnis","iste","natus","error","sit","voluptatem","accusantium","doloremque","laudantium,","totam","rem","aperiam","eaque","ipsa,","quae","ab","illo","inventore","veritatis","et","quasi","architecto","beatae","vitae","dicta","sunt,","explicabo.","Nemo","enim","ipsam","voluptatem,","quia","voluptas","sit,","aspernatur","aut","odit","aut","fugit,","sed","quia","consequuntur","magni","dolores","eos,","qui","ratione","voluptatem","sequi","nesciunt,","neque","porro","quisquam","est,","qui","dolorem","ipsum,","quia","dolor","sit","amet","consectetur","adipisci","velit,","sed","quia","non","numquam","eius","modi","tempora","incidunt,","ut","labore","et","dolore","magnam","aliquam","quaerat","voluptatem.","Ut","enim","ad","minima","veniam,","quis","nostrum","exercitationem","ullam","corporis","suscipit","laboriosam,","nisi","ut","aliquid","ex","ea","commodi","consequatur?","Quis","autem","vel","eum","iure","reprehenderit,","qui","in","ea","voluptate","velit","esse,","quam","nihil","molestiae","consequatur,","vel","illum,","qui","dolorem","eum","fugiat,","quo","voluptas","nulla","pariatur")

shinyUI(pageWithSidebar(
  div(),
  sidebarPanel(
    selectInput(inputId="mylist",label="Long list",choices=long_list,selected=long_list,multiple=T)
  ),
  mainPanel(
     h1("foo")
  )
))

如何更改布局，使其不占用太多空间，而是占用固定的最大高度？

Answer 1

目前唯一的解决方案是使用selectize=FALSE。这不允许浏览器在列表中搜索，但可以确定窗口的大小。