tb1moduleUI | R Documentation |
Table 1 shiny module UI for descriptive statistics.
tb1moduleUI(id)
id |
id |
Table 1 shiny module UI for descriptive statistics.
Table 1 module UI.
library(shiny)
library(DT)
library(data.table)
library(jstable)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
tb1moduleUI("tb1")
),
mainPanel(
DTOutput("table1")
)
)
)
server <- function(input, output, session) {
data <- reactive(mtcars)
data.label <- reactive(jstable::mk.lev(mtcars))
out_tb1 <- callModule(tb1module2, "tb1",
data = data, data_label = data.label,
data_varStruct = NULL
)
output$table1 <- renderDT({
tb <- out_tb1()$table
cap <- out_tb1()$caption
out.tb1 <- datatable(tb, rownames = T, extension = "Buttons", caption = cap)
return(out.tb1)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.