Observe glass_scene_input() on the server — observe_glass_scene • shinyglass

Echoes a scene id from glass_scenes() through update_glass_theme() after the client has already painted it.

Usage

observe_glass_scene(input, session, inputId = "glass_scene")

Arguments

input, session: Shiny server input and session objects.
inputId: Character. Same id passed to glass_scene_input(). Default "glass_scene".

Value

An shiny::observeEvent() observer (invisibly).

See also

glass_scene_input(), glass_scenes(), update_glass_theme()

Other glass controls: glass_accent_input(), glass_intensity_slider(), glass_plot_surface_input(), glass_preset_input(), glass_resolved_preset(), glass_scene_input(), glass_system_colors(), glass_theme_toggle(), observe_glass(), observe_glass_accent(), observe_glass_intensity(), observe_glass_plot_surface(), observe_glass_preset_input(), observe_glass_theme_toggle()

Examples

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    theme = glass_theme(),
    glass_scene_input()
  )
  server <- function(input, output, session) {
    observe_glass_scene(input, session)
  }
  shinyApp(ui, server)
}