Browse code

[FIX] Fixed internal of top_cis_overtime_heatmap

Giulia Pais authored on 17/06/2022 17:10:34
Showing1 changed files

... ...
@@ -556,8 +556,8 @@ top_cis_overtime_heatmap <- function(x,
556 556
         dplyr::group_by(dplyr::across(dplyr::all_of(
557 557
             c(group_col, timepoint_col)
558 558
         ))) %>%
559
-        dplyr::group_modify(.f = arrange_slice_top) %>%
560
-        dplyr::ungroup()
559
+        dplyr::group_map(.f = arrange_slice_top, .keep = TRUE) %>%
560
+        purrr::reduce(dplyr::bind_rows)
561 561
 
562 562
     groups <- unique(slice_groups_tps[[group_col]])
563 563