18 lines
307 B
R
18 lines
307 B
R
# Balance component
|
|
|
|
balanceComponent <- function(pieChartSize, barplotSize)
|
|
{
|
|
fluidRow(
|
|
column(barplotSize,
|
|
wellPanel(
|
|
plotOutput("balance")
|
|
)
|
|
),
|
|
column(pieChartSize,
|
|
wellPanel(
|
|
plotOutput("balancePieChart")
|
|
)
|
|
)
|
|
)
|
|
}
|