Shiny tag helper for a filter-tags display area tied to a glassMultiSelect

Description

Renders a ⁠<div>⁠ that the JS engine will populate with colored tag pills whenever the corresponding glassMultiSelect() selection changes.

Usage

glassFilterTags(inputId, class = NULL)

Arguments

Value

An htmltools tag.

Animated glass multi-select dropdown filter

Description

Animated glass multi-select dropdown filter

Usage

glassMultiSelect(
  inputId,
  choices,
  selected = NULL,
  placeholder = "Filter by Category",
  check_style = c("checkbox", "check-only", "filled"),
  show_style_switcher = TRUE,
  show_select_all = TRUE,
  show_clear_all = TRUE,
  theme = "dark",
  hues = NULL
)

Arguments

Value

An htmltools::tagList containing the trigger button, dropdown panel, and a scoped <style> block. Embed directly in any Shiny UI function. The widget registers two Shiny inputs: input$<inputId> (character vector of selected values) and input$<inputId>_style (active checkbox style string).

Examples

fruits <- c(Apple = "apple", Banana = "banana", Cherry = "cherry")

# Minimal
glassMultiSelect("f", fruits)

# Lock style, hide all chrome
glassMultiSelect("f", fruits,
  check_style         = "check-only",
  show_style_switcher = FALSE,
  show_select_all     = FALSE,
  show_clear_all      = FALSE
)

# Only tweak the accent color — rest stays dark
glassMultiSelect("f", fruits,
  theme = glass_select_theme(accent_color = "#f59e0b")
)

# Light panel
glassMultiSelect("f", fruits, theme = "light")

# Full custom via glass_select_theme()
glassMultiSelect("f", fruits,
  theme = glass_select_theme(
    bg_color     = "#1a0a2e",
    border_color = "#a855f7",
    text_color   = "#ede9fe",
    accent_color = "#a855f7"
  )
)

Server logic for glassMultiSelect

Description

A convenience wrapper that exposes the widget's current state as typed reactives. The underlying Shiny inputs are also available directly as input$<inputId> and input$<inputId>_style.

Usage

glassMultiSelectServer(inputId)

Arguments

Value

A list with two elements:

selected

Reactive character vector of currently selected values.

style

Reactive string — the active checkbox style ("checkbox", "check-only", or "filled").

Examples

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    useGlassTabs(),
    glassMultiSelect("cats", c(A = "a", B = "b", C = "c"))
  )
  server <- function(input, output, session) {
    ms <- glassMultiSelectServer("cats")
    observe(message("Selected: ", paste(ms$selected(), collapse = ", ")))
  }
  shinyApp(ui, server)
}

Define a single glass tab panel

Description

Used as child arguments inside glassTabsUI(). Each call defines one tab button and its associated content pane.

Usage

glassTabPanel(value, label, ..., selected = FALSE)

Arguments

Value

A list of class "glassTabPanel" consumed by glassTabsUI().

Examples

glassTabPanel("overview", "Overview",
  shiny::h3("Welcome"),
  shiny::p("This is the overview tab.")
)

Server logic for glass tabs

Description

Tracks the active tab and exposes it as a reactive value.

Usage

glassTabsServer(id)

Arguments

Value

A reactive expression returning the active tab value.

Examples

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    useGlassTabs(),
    glassTabsUI(
      "tabs",
      glassTabPanel("a", "A", p("Tab A"), selected = TRUE),
      glassTabPanel("b", "B", p("Tab B"))
    )
  )
  server <- function(input, output, session) {
    active <- glassTabsServer("tabs")
    observe(print(active()))
  }
  shinyApp(ui, server)
}

Animated glass-style tab navigation UI

Description

Animated glass-style tab navigation UI

Usage

glassTabsUI(
  id,
  ...,
  selected = NULL,
  wrap = TRUE,
  extra_ui = NULL,
  theme = NULL
)

Arguments

Value

An htmltools::tagList ready to use in a Shiny UI.

Create a custom color theme for glassMultiSelect

Description

Create a custom color theme for glassMultiSelect

Usage

glass_select_theme(
  bg_color = NULL,
  border_color = NULL,
  text_color = NULL,
  accent_color = NULL
)

Arguments

Value

A named list of class "glass_select_theme".

Create a custom color theme for glassTabsUI

Description

Create a custom color theme for glassTabsUI

Usage

glass_tab_theme(
  tab_text = NULL,
  tab_active_text = NULL,
  halo_bg = NULL,
  halo_border = NULL,
  content_bg = NULL,
  content_border = NULL,
  card_bg = NULL,
  card_text = NULL
)

Arguments

Value

A named list of class "glass_tab_theme".

Attach glasstabs CSS and JS dependencies

Description

Call this once in your UI — either inside fluidPage(), bs4DashPage(), or any other Shiny page wrapper. It injects the required CSS and JS as proper htmltools dependencies so they are deduplicated automatically.

Usage

useGlassTabs()

Value

An htmltools::htmlDependency object (invisible to the user, consumed by Shiny's renderer).

Examples

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    useGlassTabs(),
    glassTabsUI("demo",
      glassTabPanel("A", "Tab A", p("Content A")),
      glassTabPanel("B", "Tab B", p("Content B"))
    )
  )
  server <- function(input, output, session) {}
  shinyApp(ui, server)
}