javascript - R/Shiny selectInput 小部件大小

我想以 Shiny 的方式更改 selectInput() 小部件的大小。我知道它基于 selectize.js，所以我尝试修改此页面上的每个属性( https://github.com/selectize/selectize.js/blob/master/dist/css/selectize.css )

并且无法弄清楚哪个控制高度。但我不知道 CSS 或 javascript。有什么建议么？

最小的例子:

library(shiny)

ui <- fluidPage(
    fluidRow(
        actionButton('play_but', 'Play', style='height: 20px; font-size: 10px; padding: 1px 1px;'),
        actionButton('pause_but', 'Pause', style='height: 20px; font-size: 10px; padding: 1px 1px;'),
        selectInput("speed", label=NULL, choices = list("1" = 1, "2" = 2), selected = 1),
        tags$head(tags$style(HTML(".selectize-input {max-height: 5px !important; font-size: 10px; padding: 1px 1px; box-sizing: content-box;}"))),
        tags$head(tags$style(HTML(".selectize-input input {line-height: 10px;}"))),
        tags$head(tags$style(HTML(".selectize-dropdown-content {font-size: 10px; }")))
        )
    )

shinyApp(ui, server)

产生:

最佳答案

试试这个，玩得开心:

    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)

关于javascript - R/Shiny selectInput 小部件大小，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/49022778/