title: shiny dashboard fix width of plots
body: <p>I have specified my plots with a column-width of <code>5</code>. <strong>My problem</strong> is instead my plots are shown with a column-width closer to <code>2</code> with empty-space padding in between plots.</p>
  
  <p>Here's a MWE of my problem</p>
  
  <pre><code>library(tidyverse)
  library(shiny)
  library(shinydashboard)
  
  ##----------DATA------------##
  set.seed(1)
  df &lt;- map(1:4, ~data.frame(x=1:10, y=(1:10)+runif(.x), z=.x))
  stat &lt;- data.frame(A=runif(4)+2, B=runif(4)+2, depth=c(10,20,30,40))
  ##----------END DATA------------##
  
  ## UI
  ui &lt;- dashboardPage(
              dashboardHeader(title = "Test"),
              dashboardSidebar(
                    sidebarMenu(
                          menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))
                    )
              ),
              dashboardBody(
                    tabItems(
                          # First tab content
                          tabItem(tabName = "dashboard",
                                fluidRow( 
                                      box(title = "Inputs",
                                           solidHeader = TRUE,
                                           collapsible = TRUE,
                                           width = 3,    
                                       selectInput(inputId="parameter", label="Parameter", choices=c("This", "That"), selected=c("This"))
                                      )
                                ), 
                                fluidRow(
                                      column(width=5,
                                           box(title = "Plot",
                                                solidHeader = TRUE,
                                                collapsible = TRUE,
                                                plotOutput(outputId="histogram")
                                           )
                                      ),      
                              column(width=5,
                                           box(title = "Summary",
                                       plotOutput(outputId="linegraph")
                                           )
                                      )
                                )
                  )
              ) # end tabitems
          ) # end dashboardbody
      ) # end dashboardpage
  
  ## SERVER
  server &lt;-   function( input, output ) {
                    # Reactive data
                    data &lt;- reactive({ df })
                    stats &lt;- reactive({ stat })
  
                    # Histogram plot
              output$histogram &lt;- renderPlot({ ggplot() +
                                                        geom_step(data=data()[[1]], aes(x=x, y=y, colour="1"), lwd=1) + 
                                                        geom_step(data=data()[[2]], aes(x=x, y=y, colour="2"), lwd=1) +
                                                        geom_step(data=data()[[3]], aes(x=x, y=y, colour="3"), lwd=1) +
                                                        geom_step(data=data()[[4]], aes(x=x, y=y, colour="4"), lwd=1) +
                                                        scale_color_manual(values=c("1"="cyan","2"="blue","3"="green","4"="red")) +
                                                        theme_classic() +
                                                        guides(color=guide_legend(title="")) +
                                                        theme(legend.position = "bottom", legend.direction = "horizontal") + 
                                                        theme(text = element_text(size=20)) +
                                                        xlab("") + ylab("") })
  
                    # Linegraph plot
              output$linegraph &lt;- renderPlot({ ggplot() +
                                                        geom_point(data=stats(), aes(x=depth, y=A, color="A"), size=5) + 
                                                        geom_line(data=stats(), aes(x=depth, y=A, color="A"), lwd=1) +
                                                        geom_point(data=stats(), aes(x=depth, y=B, color="B"), size=5) + 
                                                        geom_line(data=stats(), aes(x=depth, y=B, color="B"), lwd=1) +
                                                        geom_hline(yintercept=0, lty=2, lwd=1, color="red") +
                                                        scale_color_manual(values=c("A"="black","B"="grey")) +
                                                        theme_classic() +
                                                        guides(color=guide_legend(title="")) +
                                                        theme(legend.position = "bottom", legend.direction = "horizontal") + 
                                                        theme(text = element_text(size=20)) +
                                                        xlab("") + ylab("") })
          }
  
  shinyApp( ui = ui, server = server )
  </code></pre>
  
  <p>I appreciate any help!</p>