Only show the top 50 intersections

fmicompbio · Dec 31, 2024 · a131578 · a131578
1 parent 82a4971
commit a131578
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)
 }
 ```