title: shiny dashboard mainpanel height issue
body: <p>This is an extension of my <a href="https://stackoverflow.com/questions/46184346/tabpanel-and-wasted-white-space">previous question</a>. Now I am not able to extend the height of my main panel. </p>
  
  <p>This is my code below</p>
  
  <pre><code>library(shiny)
  library(shinydashboard)
  library(shinyBS)
  library(DT)
  
  ui &lt;- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
      sidebarPanel(
        textInput("text", "Enter Id:"),
        box(width = 1, background  = 'purple'),
        actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%')
      )
  
    ),
    dashboardBody(
  
      mainPanel(width = 12, 
  
        tabsetPanel(
  
          tabPanel("About", value=1, h6("The objective is to test width of ShinyApp in tabPanel design", br(),
                                        br(),
  
                                        "Distribution Prototype"
  
                                       )
                   ),
  
  
          tabPanel("Data", value=2,
  
                   fluidRow(
  
                     valueBoxOutput("vbox1", width = 2),
                     valueBoxOutput("vbox2", width = 2),
                     valueBoxOutput("vbox3", width = 2),
                     valueBoxOutput("vbox4", width = 2),
                     valueBoxOutput("vbox5", width = 2),
                     valueBoxOutput("vbox6", width = 2)
  
  
                   ),
  
                   fluidRow(
  
                     column(width = 4,  box(title = "Iris", width = NULL, solidHeader = FALSE, dataTableOutput("dat1"))),
                     column(width = 4,  box(title = "MT Cars", width = NULL, solidHeader = FALSE, dataTableOutput("dat2"))),
                     column(width = 4,  box(title = "Old Faithful Gyser", width = NULL, solidHeader = FALSE, dataTableOutput("dat3")))),
  
                   fluidRow(
  
  
                     column(width = 4,  box(title = "Plot1", width = NULL, solidHeader = FALSE, plotOutput("plot1", height = "600px"))),
                     column(width = 4,  box(title = "Plot2", width = NULL, solidHeader = FALSE, plotOutput("plot2", height = "600px"))),
                     column(width = 4,  box(title = "Plot3", width = NULL, solidHeader = FALSE, plotOutput("plot3", height = "600px")))
  
  
                   )
  
          )
        )
      )
    ))
  
  server &lt;- function(input, output) {
  
    output$vbox1 &lt;- renderValueBox({ valueBox( "One","Yes",icon = icon("stethoscope"))})
    output$vbox2 &lt;- renderValueBox({ valueBox( "Two","Yes",icon = icon("stethoscope"))})
    output$vbox3 &lt;- renderValueBox({ valueBox( "Three","Yes",icon = icon("stethoscope"))})
    output$vbox4 &lt;- renderValueBox({ valueBox( "Four","Yes",icon = icon("stethoscope"))})
    output$vbox5 &lt;- renderValueBox({ valueBox( "Five","Yes",icon = icon("stethoscope"))})
    output$vbox6 &lt;- renderValueBox({ valueBox( "Six","Yes",icon = icon("stethoscope"))})
  
    output$dat1 &lt;- renderDataTable({datatable(iris)})
    output$dat2 &lt;- renderDataTable({datatable(mtcars,extensions = 'Responsive' )})
    output$dat3 &lt;- renderDataTable({datatable(faithful,rownames = FALSE, options = list(autoWidth = TRUE)  )})
  
  }
  
  shinyApp(ui, server)
  </code></pre>
  
  <p>The plots are sticking out of the default layout space and I am not finding any options in the <code>mainPanel()</code> to increase the height. I attempted forcing the height value within the <code>mainPanel()</code>, like this  <code>mainPanel(width = 12, height, 20 ....)</code> and that did not work. Any suggestion is much appreciated.</p>
  
  <p>+<a href="https://i.stack.imgur.com/2WzPK.png" rel="noreferrer"><img src="https://i.stack.imgur.com/2WzPK.png" alt="Main Panel Height issue"></a></p>
  
  <p>---------Updated-------------</p>
  
  <p>Not sure if this helps, this is not an issue when I dont use mainpanel()</p>
  
  <pre><code>library(shiny)
  library(shinydashboard)
  library(DT)
  
  ui &lt;- dashboardPage(
    dashboardHeader(title = "Dynamic boxes"),
  
  
    dashboardSidebar(
      conditionalPanel(condition="input.tabselected==3",
                       textInput("text", "Enter Id:"),
                       box(width = 1, background  = 'purple'),
                       actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%')
      )
    ),
    dashboardBody(
      fluidRow(
  
        valueBoxOutput("vbox1", width = 2),
        valueBoxOutput("vbox2", width = 2),
        valueBoxOutput("vbox3", width = 2),
        valueBoxOutput("vbox4", width = 2),
        valueBoxOutput("vbox5", width = 2),
        valueBoxOutput("vbox6", width = 2)
  
  
      ),
  
      fluidRow(
  
        column(width = 4,  box(title = "Iris", width = NULL, solidHeader = FALSE, dataTableOutput("dat1"))),
  
        column(width = 4,  box(title = "MT Cars", width = NULL, solidHeader = FALSE, dataTableOutput("dat2"))),
  
        column(width = 4,  box(title = "Old Faithful Gyser", width = NULL, solidHeader = FALSE, dataTableOutput("dat3")))
  
  
    ),
  
    fluidRow(
  
  
      column(width = 4,  box(title = "Plot1 ", width = NULL, solidHeader = FALSE, plotOutput("plot1", height = "600px"))),
      column(width = 4,  box(title = "Plot2", width = NULL, solidHeader = FALSE, plotOutput("plot2", height = "600px"))),
      column(width = 4,  box(title = "Plot3", width = NULL, solidHeader = FALSE, plotOutput("plot3", height = "600px")))
  
  
    )
  
  
  
    )
    )
  
  
  server &lt;- function(input, output) {
  
    output$vbox1 &lt;- renderValueBox({ valueBox( "One","Yes",icon = icon("stethoscope"))})
    output$vbox2 &lt;- renderValueBox({ valueBox( "Two","Yes",icon = icon("stethoscope"))})
    output$vbox3 &lt;- renderValueBox({ valueBox( "Three","Yes",icon = icon("stethoscope"))})
    output$vbox4 &lt;- renderValueBox({ valueBox( "Four","Yes",icon = icon("stethoscope"))})
    output$vbox5 &lt;- renderValueBox({ valueBox( "Five","Yes",icon = icon("stethoscope"))})
    output$vbox6 &lt;- renderValueBox({ valueBox( "Six","Yes",icon = icon("stethoscope"))})
  
    output$dat1 &lt;- renderDataTable({datatable(iris)})
    output$dat2 &lt;- renderDataTable({datatable(mtcars,extensions = 'Responsive' )})
    output$dat3 &lt;- renderDataTable({datatable(faithful,rownames = FALSE, options = list(autoWidth = TRUE)  )})
    #output$dat4 &lt;- renderDataTable({datatable(data.frame(HairEyeColor),extensions = 'Responsive' )})
  }
  
  shinyApp(ui, server)
  </code></pre>