Dynamic glass tab UI output

A drop-in replacement for shiny::uiOutput() that pairs with renderGlassTabs(). It creates a placeholder <div> that Shiny fills with a fully reactive glassTabsUI() when the server-side render function runs. The JavaScript engine is automatically (re-)initialised after each render.

Usage

glassTabsOutput(outputId, ...)

Arguments

outputId

The output id used in the paired renderGlassTabs() call.

...

Additional arguments forwarded to shiny::uiOutput().

Value

A shiny.tag suitable for use in a Shiny UI.

Examples

if (interactive()) {
  library(shiny)

  tab_data <- list(
    list(value = "a", label = "Alpha"),
    list(value = "b", label = "Beta"),
    list(value = "c", label = "Gamma")
  )

  ui <- fluidPage(
    useGlassTabs(),
    selectInput("n", "Show tabs", choices = 2:3, selected = 2),
    glassTabsOutput("dynamic_tabs")
  )

  server <- function(input, output, session) {
    output$dynamic_tabs <- renderGlassTabs({
      panels <- lapply(
        head(tab_data, as.integer(input$n)),
        function(t) glassTabPanel(t$value, t$label, p(t$label))
      )
      do.call(glassTabsUI, c(list("dyn"), panels))
    })
  }

  shinyApp(ui, server)
}