cf_partner_summary: return npre and npost separately

natverse · Aug 27, 2023 · d98f575 · d98f575
1 parent a214b0f
commit d98f575
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/partners.R b/R/partners.R
@@ -172,7 +172,9 @@ cf_partner_summary <- function(ids, threshold=1L, partners=c("inputs", "outputs"
     select(-dataset) %>%
     left_join(qmeta, by = join_spec, suffix=suffix) %>%
     group_by(dataset, type.pre, type.post) %>%
-    summarise(weight=sum(weight), n=n_distinct(.data[[glue("{pfix}_key")]]),
+    summarise(weight=sum(weight),
+              npre=n_distinct(pre_key),
+              npost=n_distinct(post_key),
               .groups='drop') %>%
     arrange(desc(weight)) %>%
     mutate(query=paste0(abbreviate_datasets(dataset),":", .data[[glue("type.{qfix}")]]))