Prepare manuscript-style results evidence

Usage

sn_prepare_results_evidence(
  object,
  cluster_de_name = NULL,
  contrast_de_name = NULL,
  enrichment_name = NULL,
  cluster_col = "seurat_clusters",
  n_markers = 5,
  n_terms = 10
)

Arguments

object: A Seurat object.
cluster_de_name: Optional stored cluster-marker result.
contrast_de_name: Optional stored contrast or pseudobulk result.
enrichment_name: Optional stored enrichment result.
cluster_col: Metadata column containing cluster labels.
n_markers: Number of marker genes to retain per cluster.
n_terms: Number of enrichment terms to retain.

Value

A structured list ready for prompt construction.

Examples

if (requireNamespace("Seurat", quietly = TRUE)) {
  counts <- matrix(rpois(10 * 24, lambda = 1), nrow = 10, ncol = 24)
  rownames(counts) <- c(
    "CD3D", "CD3E", "TRAC", "LTB", "MS4A1",
    "CD79A", "HLA-DRA", "LYZ", "ACTB", "MALAT1"
  )
  colnames(counts) <- paste0("cell", 1:24)
  obj <- sn_initialize_seurat_object(counts, species = "human")
  obj$cell_type <- rep(c("Tcell", "Bcell"), each = 12)
  Seurat::Idents(obj) <- obj$cell_type
  obj <- Seurat::NormalizeData(obj, verbose = FALSE)
  obj <- sn_find_de(obj, analysis = "markers", group_by = "cell_type",
    layer = "data", min_pct = 0, logfc_threshold = 0,
    store_name = "celltype_markers", return_object = TRUE, verbose = FALSE
  )
  obj <- sn_store_enrichment(
    obj,
    tibble::tibble(ID = "GO:0001", Description = "immune response", NES = 2, p.adjust = 0.01),
    store_name = "demo_gsea"
  )
  evidence <- sn_prepare_results_evidence(
    obj,
    cluster_de_name = "celltype_markers",
    enrichment_name = "demo_gsea",
    cluster_col = "cell_type"
  )
  names(evidence)
}
#> INFO [2026-03-26 18:52:35] Initializing Seurat object for project: Shennong.
#> INFO [2026-03-26 18:52:35] Running QC metrics for human.
#> INFO [2026-03-26 18:52:35] Seurat object initialization complete.
#> Warning: No DE genes identified
#> [1] "task"               "dataset"            "cluster_summary"   
#> [4] "cluster_markers"    "enrichment_summary"