Observe glass_plot_surface_input() on the server

Echoes "clear" or "opaque" through update_glass_theme() after the client has already applied the surface.

Usage

observe_glass_plot_surface(input, session, inputId = "plot_surface")

Arguments

input, session

Shiny server input and session objects.

inputId

Character. Same id passed to glass_plot_surface_input(). Default "plot_surface".

Value

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

See also

glass_plot_surface_input(), 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_preset_input(), observe_glass_scene(), observe_glass_theme_toggle()

Examples

if (interactive()) {
  library(shiny)
  ui <- glass_page(
    title = "Surface",
    controls = "toggle",
    glass_plot_surface_input()
  )
  server <- function(input, output, session) {
    observe_glass_plot_surface(input, session)
  }
  shinyApp(ui, server)
}