## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----privacy-reporting-example------------------------------------------------
# Sample data with identifier-like fields
sample_data <- tibble::tibble(
  student_id = c("12345", "67890"),
  preferred_name = c("Alice Johnson", "Bob Smith"),
  email = c("alice@university.edu", "bob@university.edu"),
  participation_score = c(85, 92)
)

# Generate privacy review report
report <- engager::generate_privacy_review_report(sample_data)

# Save report to a temporary file
report_file <- tempfile(fileext = ".json")
written_report <- engager::generate_privacy_review_report(
  sample_data,
  output_file = report_file,
  report_format = "json"
)
unlink(report_file)