Update methods.R

stemangiola · Nov 3, 2023 · 767b2b5 · 767b2b5
1 parent aa97269
commit 767b2b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/methods.R b/R/methods.R
@@ -241,7 +241,7 @@ setMethod("aggregate_cells", "SingleCellExperiment",  function(.data,
       aggregate_sce_fun <- function(sce) {
         aggregated_vals <- assays(altExps(sce)[[selected_exp]])[selected_assays$assay_name] |>
           as.list() |>
-          set_names(selected_assays$assay_id) |>
+          purrr::set_names(selected_assays$assay_id) |>
           map(.f = \(.list) aggregation_function(.list))
         map(.x = seq_along(aggregated_vals), \(.num) enframe(x = aggregated_vals[[.num]], name = ".feature", value = selected_assays$assay_id[[.num]])) |>
           suppressMessages(reduce(full_join))