Fix bug in calculate_treatment_enrichment

jpquast · Aug 29, 2023 · 1e52f8d · 1e52f8d
1 parent f7bdc24
commit 1e52f8d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/calculate_treatment_enrichment.R b/R/calculate_treatment_enrichment.R
@@ -177,6 +177,7 @@ calculate_treatment_enrichment <- function(data,
   }
 
   # Add p-value to group name for plot
+  # also group to correctly calculate the total number of proteins in the next step
   if (!missing(group)) {
     cont_table <- cont_table %>%
       dplyr::mutate(group_pval = paste0(
@@ -188,7 +189,8 @@ calculate_treatment_enrichment <- function(data,
           round(.data$pval, digits = 2)
         ),
         ")"
-      ))
+      )) %>% 
+      dplyr::group_by({{ group }})
   }
 
   enrichment_plot <- cont_table %>%