17 lines
291 B
R
17 lines
291 B
R
# Balance component
|
|
|
|
balanceComponent <- function()
|
|
{
|
|
tabsetPanel(
|
|
tabPanel("Bar graph",
|
|
wellPanel(
|
|
plotOutput("balance")
|
|
)
|
|
),
|
|
tabPanel("Pie chart",
|
|
wellPanel(
|
|
plotOutput("balancePieChart")
|
|
)
|
|
)
|
|
)
|
|
} |