title: Control select input height within sidebar with R shinydashboard
body: <p>I'm trying to increase the height of a select input inside the sidebar of a shinydashboard. When started, the height is correct, but immediatly, the size decrease to the default one.</p>
  
  <p>I try use tags$style : </p>
  
  <pre><code>tags$style(type='text/css', "#input_id {height: 100px}")
  </code></pre>
  
  <p>Here is a reproductible example :</p>
  
  <pre><code>library(shiny)
  library(shinydashboard)
  # Define UI for application that draws a histogram
  ui &lt;-  dashboardPage(
      title = "Plan de gestion",
      dashboardHeader(
          title = "test"
      ),
      dashboardSidebar(
          sidebarMenu(
              selectInput(inputId = "test_size", label = "Test", choices = c("A", "B", "C")),
              tags$style(type='text/css', "#choix_param {height: 100px}")
          )
      ),
      dashboardBody(
  
      )
  )
  
  # Define server logic required to draw a histogram
  server &lt;- function(input, output) {
  }
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>Thank you for your help.</p>