Input R选择输入小部件大小目标输入

我的闪亮应用程序中有多个selectizeInput。其中大多数都不应该充满变量/元素，但其中一个是肯定的。问题是框中的变量/元素越多，这个越大，显示效果就不好。我已经找到了操作输入小部件的高度、字体、宽度等的解决方案：

    library(shiny)

    ui <- fluidPage(
      fluidRow(

        selectInput("speed", label=NULL, choices = list("1" = 1, "2" = 2), selected = 1),
        tags$head(tags$style(HTML(".selectize-input {height: 100px; width: 500px; font-size: 100px;}")))
      )

)
server <- function(input, output){}
shinyApp(ui, server)

库（闪亮）
ui您可以使用一些高级CSS来选择
。选择输入框。因此，在
selectInput
结构中，具有实际id的元素被分配给
select
标记，并且您想要的框是
select
标记之后的以下标记的第一个子项。我们可以使用
+
选择以下标记，并使用
选择包含
的第一个子项。选择以下标记的输入类

库（闪亮）
谢谢你，这很有效！