From a131578748b833ef7144ceb1690bfc4cb325af74 Mon Sep 17 00:00:00 2001
From: Charlotte Soneson <charlottesoneson@gmail.com>
Date: Tue, 31 Dec 2024 16:53:51 +0100
Subject: [PATCH] Only show the top 50 intersections

---
 inst/extdata/process_basic_template.Rmd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/inst/extdata/process_basic_template.Rmd b/inst/extdata/process_basic_template.Rmd
index ab11922..8801b97 100644
--- a/inst/extdata/process_basic_template.Rmd
+++ b/inst/extdata/process_basic_template.Rmd
@@ -1087,7 +1087,8 @@ tmpsign <- tmpsign[rowSums(tmpsign) > 0, , drop = FALSE]
 colnames(tmpsign) <- gsub("\\.showInVolcano$", "", colnames(tmpsign))
 if (length(tests) > 1 && sum(colSums(tmpsign) > 0) > 1) {
     ComplexUpset::upset(tmpsign, intersect = colnames(tmpsign), 
-                        sort_intersections_by = "cardinality")
+                        sort_intersections_by = "cardinality",
+                        n_intersections = 50)
 }
 ```