barServer: barServer: shiny module server for barplot.
In leevenstar/jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

Shiny module server for barplot.

1	barServer(id, data, data_label, data_varStruct = NULL, nfactor.limit = 10)

`id`	id
`data`	Reactive data
`data_label`	Reactive data label
`data_varStruct`	Reactive List of variable structure, Default: NULL
`nfactor.limit`	nlevels limit in factor variable, Default: 10

Shiny module server for barplot.

library(shiny);library(ggplot2);library(ggpubr);
ui <- fluidPage(
   sidebarLayout(
   sidebarPanel(
     barUI("bar")
   ),
   mainPanel(
     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())
  })
}