Skip to contents

A widget that renders the safety.viz shift plot: a baseline-versus-comparison scatter that pairs each participant's baseline-visit value against their comparison-visit value for a selected measure, with optional filters, summary-statistic controls, and a participant-level listing.

Usage

Widget_ShiftPlot(
  dfResults,
  lSettings = list(),
  width = NULL,
  height = NULL,
  elementId = NULL,
  bDebug = FALSE
)

Arguments

dfResults

data.frame Long-format results data, one record per participant per visit per measure. Column names are supplied by lSettings; the defaults expect TEST/STRESN/VISIT/VISITNUM/USUBJID/STRESU (see inst/schema/shift-plot.json).

lSettings

list safety.viz shift-plot settings overrides; merged onto the module's DEFAULT_SETTINGS client-side, so only overrides are needed.

width

character Width of the widget as a CSS unit. Default: NULL.

height

character Height of the widget as a CSS unit. Default: NULL.

elementId

character ID of the widget's HTML element. Default: NULL.

bDebug

logical Print debug messages in the browser console? Default: FALSE.

Examples

dfResults <- ExampleData("adbds")

Widget_ShiftPlot(
  dfResults,
  lSettings = list(
    filters = list(
      list(value_col = "SITEID", label = "Site ID"),
      list(value_col = "SEX", label = "Sex"),
      list(value_col = "RACE", label = "Race"),
      list(value_col = "ARM", label = "Treatment Group")
    ),
    baseline_visits = list("Baseline"),
    comparison_visits = list("Week 26")
  )
)