barUI | R Documentation |
Shiny module UI for barplot
barUI(id, label = "barplot")
id |
id |
label |
label |
Shiny module UI for barplot
Shiny module UI for barplot
library(shiny)
library(ggplot2)
library(ggpubr)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
barUI("bar")
),
mainPanel(
optionUI("bar"),
plotOutput("bar_plot"),
ggplotdownUI("bar")
)
)
)
server <- function(input, output, session) {
data <- reactive(mtcars)
data.label <- reactive(jstable::mk.lev(mtcars))
out_bar <- barServer("bar",
data = data, data_label = data.label,
data_varStruct = NULL
)
output$bar_plot <- renderPlot({
print(out_bar())
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.