kpagacz

library(teal)
library(teal.modules.general)
library(teal.data)
library(pharmaverseadam)

# Load data for bookmarking demonstration
data("adsl", package = "pharmaverseadam")
data("adae", package = "pharmaverseadam")

# Create teal_data object with join keys

kpagacz

# Demonstration of report import capabilities
report_import_demo <- teal::init(
  data = report_demo_data,
  modules = teal::modules(
    tm_data_table(
      label = "Import Demo - Data Table",
      dataname = "ADSL"
    ),
    tm_t_summary(
      label = "Import Demo - Summary",

kpagacz

# Framework for validating saved teal reports
validate_teal_report <- function(report_path) {
  validation_checklist <- list(
    # Data Integrity
    data_validation = list(
      data_source_documented = TRUE,
      filter_logic_clear = TRUE,
      population_definition_appropriate = TRUE,
      missing_data_handling_documented = TRUE
    ),

kpagacz

# Example of metadata found in a saved teal report
report_investigation_info <- list(
  # Basic Report Information
  report_title = "Baseline Demographics Analysis",
  creation_date = "2024-01-15 14:30:22 UTC",
  teal_version = "0.15.2",

  # Data Context
  datasets_used = c("ADSL", "ADAE"),
  filter_state = list(

kpagacz

# Comprehensive example for report saving demonstration
report_saving_demo <- teal::init(
  data = report_demo_data,
  modules = teal::modules(
    # Create a complete analysis workflow for export
    teal::modules(
      label = "📊 Study Population",
      tm_data_table(
        label = "Subject Listing",
        dataname = "ADSL"

kpagacz

# Demonstration of report editing and organization capabilities
report_editing_demo <- teal::init(
  data = report_demo_data,
  modules = teal::modules(
    # Multiple modules to create content for reordering demonstration
    tm_data_table(
      label = "A. Data Overview",
      dataname = "ADSL"
    ),
    tm_g_distribution(

kpagacz

# Application specifically designed to demonstrate report preview capabilities
preview_demo <- teal::init(
  data = report_demo_data,
  modules = teal::modules(
    # Create a series of analyses for comprehensive report preview
    teal::modules(
      label = "👥 Population Analysis",
      tm_data_table(
        label = "Subject Disposition",
        dataname = "ADSL"

kpagacz

# Comprehensive example demonstrating report addition
report_addition_demo <- teal::init(
  data = report_demo_data,
  modules = teal::modules(
    # Data exploration module
    tm_data_table(
      label = "📊 ADSL Data Table",
      dataname = "ADSL"
    ),

kpagacz

library(teal)
library(teal.modules.general)
library(teal.data)
library(pharmaverseadam)

# Load data for report functionality demonstration
data("adsl", package = "pharmaverseadam")
data("adae", package = "pharmaverseadam")

# Create teal_data object

kpagacz

# Complex coupling with multiple relationships
complex_coupling_demo <- teal::init(
  data = coupled_demo_data,
  modules = teal::modules(
    tm_g_scatterplot(
      label = "Cross-Dataset Analysis",
      dataname = "ADSL",
      x = data_extract_spec(
        dataname = "ADSL",
        select = select_spec(