From 5b5f6cbe59bc760b1255ab3a375adcde2bcf9cba Mon Sep 17 00:00:00 2001 From: kelshmo Date: Mon, 20 Sep 2021 15:41:13 -0500 Subject: [PATCH] fix reversed ordere --- R/functions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/functions.R b/R/functions.R index dd731652..6e76d7e3 100644 --- a/R/functions.R +++ b/R/functions.R @@ -815,11 +815,11 @@ store_results <- function(clean_md = clean_md, parse_residual_matrix <- purrr::map(residualized_counts, function(x) x$output) # append differential expression data frames already nested in list - targets <- append(targets, de_results) targets <- append(targets, parse_residual_matrix) + targets <- append(targets, de_results) # append null rownames for differential expression object - rownames <- append(rownames, rep(list(NULL), length(de_results) + length(residualized_counts))) + rownames <- append(rownames, rep(list(NULL), length(residualized_counts) + length(de_results))) mash <- list( target = targets,