title: Override height of box in shiny dashboard and leaflet
body: <p>I created a dashboard using <code>shinyDashboard</code> and I have a map with <code>leaflet</code>. The <code>box</code> element used in shinyDashboard creates a fixed height of 400px for the map.</p>
  
  <p>I would like the map to be <code>90vh</code> so that it covers most of the screen, and so I wrote this on the <code>UI</code> file:</p>
  
  <pre><code>tabItem(tabName = "widgets",
                fluidPage(
                  fluidRow(
                    tags$head(tags$style(type = "text/css",'
                                              #geomap {
                                              height: 90vh;
                                              }
                                              ')),
                    box(title = "Geographical distribution",
                      leafletOutput("geomap")
                    )
                  )
                )
        )
  </code></pre>
  
  <p>Now, when I inspect the page, I can see that the property was passed onto the <code>#geomap</code> id, but it is overridden for some reason</p>
  
  <p><a href="https://i.stack.imgur.com/P8yNV.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/P8yNV.png" alt=""></a>!</p>
  
  <p>Also, here is the node</p>
  
  <p><a href="https://i.stack.imgur.com/hKDGZ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/hKDGZ.png" alt=""></a>.</p>
  
  <p>I have overridden classes before successfully, so I don't understand how an ID can't be overridden. Any ideas?</p>
  
  <p>Thank you!</p>
  
  <p>EDIT: Here's an example code: </p>
  
  <pre><code>library(shiny)
  library(shinydashboard)
  library(leaflet)
  
  
  server &lt;- function(input, output, session) {
    output$geomap &lt;- renderLeaflet({
      m &lt;- leaflet(data) %&gt;%
        addProviderTiles("CartoDB.Positron")
  
    })
  }
  
  ui &lt;- dashboardPage(skin = "black",
                      dashboardHeader(title = "Test"),
                      dashboardSidebar(
                        sidebarMenu(
                          menuItem("Map distribution", tabName = "widgets", icon = icon("th"))
                        )
                      ),
  
  
                      dashboardBody(
                        tabItems(
                          tabItem(tabName = "widgets",
                                  fluidPage(
                                    fluidRow(
                                      tags$head(tags$style(HTML('
                                              .col-sm-6 {
                                                                width: 100%;
                                                                }
                                                                '))),
                                      box(title = "Geographical distribution",
                                          leafletOutput("geomap")
                                      )
                                      )
                                    )
                                  )
                            )
                        )
                      )
  
  shinyApp(ui, server)
  </code></pre>