# Balance component

balanceComponent <- function(pieChartSize, barplotSize)
{
  fluidRow(
    column(barplotSize,
           wellPanel(
             plotOutput("balance")
           )
    ),
    column(pieChartSize,
           wellPanel(
             plotOutput("balancePieChart")
           )
    )
  )
}