Send tab states to the browser whenever they change

kit_watch_tab_states(session, shiny::reactive(kit_tab_states(...))).

Usage

kit_watch_tab_states(session, states)

Arguments

session

The Shiny session.

states

A reactive: the result of kit_tab_states().

Value

The shiny::observe() observer (invisibly).

Examples

if (interactive()) {
  server <- function(input, output, session) {
    kit_watch_tab_states(session, shiny::reactive(kit_tab_states(list(upload = "success"))))
  }
}