support for group=TRUE in multi_connection_table

* this is not really a contract in the documentation but is expected by some users and doesn't seem problematic
natverse · Jan 22, 2025 · 541f8d3 · 541f8d3
1 parent 0050f70
commit 541f8d3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/cosine.R b/R/cosine.R
@@ -311,6 +311,8 @@ multi_connection_table <- function(ids, partners=c("inputs", "outputs"),
                                    check_missing=TRUE,
                                    min_datasets=Inf
                                    ) {
+  if(isTRUE(group))
+    group='type'
   partners=match.arg(partners, several.ok = T)
   kk=keys(ids)
   if(length(partners)>1) {