Skip to contents

Server-Side Counterpart to the Shared Coordinator

Source: R/paintr-shared-ui.R
ptr_shared_server.Rd

Builds the shared input reactives and binds the host-level ppVar(shared = "...") consumer pickers for the ptr_shared_panel(). Returns a ptr_shared_state that the embedder threads into each ptr_server() via the shared_state argument.

Usage

ptr_shared_server(
  obj,
  envir = parent.frame(),
  shared = list(),
  draw_trigger = NULL,
  spec = NULL
)

Arguments

obj

A ptr_shared_spec from ptr_shared() – the single source of truth for the cross-formula partition. Replaces the old formulas/expr_check arguments, which are now baked into obj.

envir

Environment used to resolve symbols in the shared ppVar() upstream chains. Default parent.frame() picks up the embedder's caller scope so mtcars etc. resolve naturally.

shared

Optional named list overriding the auto-derived reactives. Each named entry replaces the reactive for that key; unsupplied keys keep the default that reads input[[canonical_shared_id(key)]].

draw_trigger

Optional reactive overriding the auto-derived "Draw all" trigger (input$ptr_shared_draw_all). Useful when an embedder wants to drive the cross-module redraw from their own button.

spec

Optional named list of fully-qualified Shiny input id -> value, used to override widget defaults at session boot for host-owned panel-shared widgets (shared_<k> for consumer / value placeholders, shared_<k>_name for panel-owned source companion textInputs). Multi-instance entrypoints like ptr_app_grid() forward the same flat spec to every per-plot ptr_server() AND to this host-scope server; per-plot servers prefix-filter by their own module namespace and drop un-namespaced ids, leaving this host apply path to claim them.

Value

A ptr_shared_state S3 object with public fields shared, draw_trigger, shared_resolutions, and shared_stage_enabled (a named list of reactives, one per shared key, indicating whether that key's shared stage is active for each embedded module).

Details

Namespacing is inherited from obj$id; supply it to ptr_shared().

Reads its session via shiny::getDefaultReactiveDomain() – call it inside the top-level Shiny server function (or any reactive context that inherits the session). Errors when called outside any reactive domain.

See also

ptr_shared(), ptr_shared_panel(), ptr_server().

Examples

if (interactive()) {
  obj <- ptr_shared(c(
    "ggplot(mtcars, aes(x = ppVar(shared='x'), y = ppVar)) + geom_point()",
    "ggplot(mtcars, aes(x = ppVar(shared='x'), y = ppVar)) + geom_bar()"
  ))
  shiny::shinyApp(
    ui = shiny::fluidPage(ptr_shared_panel(obj)),
    server = function(input, output, session) {
      ptr_shared_server(obj)
    }
  )
}