# Helper functions used by test-developer-summary.R

extract_summary_analysis <- function(x) x[["Analysis"]][1]