2019-05-16 00:37:48 +02:00
|
|
|
# Balance component
|
|
|
|
|
|
2019-06-14 18:32:12 +02:00
|
|
|
balanceComponent <- function()
|
2019-05-16 00:37:48 +02:00
|
|
|
{
|
2019-06-14 18:32:12 +02:00
|
|
|
tabsetPanel(
|
|
|
|
|
tabPanel("Bar graph",
|
|
|
|
|
wellPanel(
|
2019-05-16 00:37:48 +02:00
|
|
|
plotOutput("balance")
|
|
|
|
|
)
|
|
|
|
|
),
|
2019-06-14 18:32:12 +02:00
|
|
|
tabPanel("Pie chart",
|
|
|
|
|
wellPanel(
|
2019-05-16 00:37:48 +02:00
|
|
|
plotOutput("balancePieChart")
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2019-05-19 19:05:06 +02:00
|
|
|
}
|
