diff --git a/R/merge_sce_list.R b/R/merge_sce_list.R index 7da06a55..2c7fb7d7 100644 --- a/R/merge_sce_list.R +++ b/R/merge_sce_list.R @@ -189,7 +189,6 @@ merge_sce_list <- function( purrr::reduce(union) for (altexp_name in altexp_names) { - altexp_name <- "CITEseq" # Determine which SCEs contain this altExp, and create list of those altExps has_altexp_name <- sce_list |> purrr::map_lgl( @@ -219,15 +218,19 @@ merge_sce_list <- function( # Replace existing metadata list with merged metadata metadata(merged_sce) <- metadata_list - + # Add the merged altE into the main merged_sce if (include_altexp) { - # Apply column names + + # Ensure compatible column names + # (this is probably not necessary but doesn't hurt...) merged_sce <- merged_sce[,merged_colnames] - ## TODO: ADD THE `merged_altexps` INTO `merged_sce` + # Add the merged altexps into the merged sce + for (altexp_name in names(merged_altexps)) { + altExp(merged_sce, altexp_name) <- merged_altexps[[altexp_name]] + } } - return(merged_sce) } diff --git a/man/create_merged_altexps.Rd b/man/create_merged_altexp.Rd similarity index 84% rename from man/create_merged_altexps.Rd rename to man/create_merged_altexp.Rd index 83e52dd9..73a62bc1 100644 --- a/man/create_merged_altexps.Rd +++ b/man/create_merged_altexp.Rd @@ -1,10 +1,10 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/merge_sce_list.R -\name{create_merged_altexps} -\alias{create_merged_altexps} +\name{create_merged_altexp} +\alias{create_merged_altexp} \title{Prepare altExps for merge and create a list of merged altExps for each altExp name} \usage{ -create_merged_altexps(altexp_list, merged_colnames) +create_merged_altexp(altexp_list, merged_colnames) } \arguments{ \item{altexp_list}{List of altexps to merge}