Merge pull request #55 from federicomarini/fix_gs_scores

force keeping the data frame structure to enable colMeans to keep on …
federicomarini · Sep 28, 2023 · c816d29 · c816d29
2 parents a874402 + 12cd01d
commit c816d29
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/gs_heatmap.R b/R/gs_heatmap.R
@@ -396,7 +396,7 @@ gs_scores <- function(se,
     thisset_members_ids <- annotation_obj$gene_id[match(thisset_members, annotation_obj$gene_name)]
 
     thisset_members_ids <- thisset_members_ids[thisset_members_ids %in% rownames(se)]
-    thisset_zs <- mydata_z[thisset_members_ids, ]
+    thisset_zs <- mydata_z[thisset_members_ids, , drop = FALSE]
     thisset_mean_zs <- colMeans(thisset_zs)
 
     gss_mat[i, ] <- thisset_mean_zs