2019-05-16 00:37:48 +02:00
|
|
|
# Balance component
|
|
|
|
|
|
|
|
|
|
balanceComponent <- function(pieChartSize, barplotSize)
|
|
|
|
|
{
|
|
|
|
|
fluidRow(
|
|
|
|
|
column(barplotSize,
|
|
|
|
|
wellPanel(
|
|
|
|
|
plotOutput("balance")
|
|
|
|
|
)
|
|
|
|
|
),
|
|
|
|
|
column(pieChartSize,
|
|
|
|
|
wellPanel(
|
|
|
|
|
plotOutput("balancePieChart")
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2019-05-19 19:05:06 +02:00
|
|
|
}
|
