enable single feature heatmaps #32

epigen · Mar 6, 2025 · 4752861 · 4752861
1 parent dad6777
commit 4752861
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/workflow/scripts/heatmap.R b/workflow/scripts/heatmap.R
@@ -70,8 +70,8 @@ rownames(adjp_df) <- adjp_df$feature
 adjp_df$feature <- NULL
 
 # subset dataframes according to feature list
-lfc_df <- lfc_df[feature_list, ]
-adjp_df <- adjp_df[feature_list, ]
+lfc_df <- lfc_df[feature_list, ,drop = FALSE]
+adjp_df <- adjp_df[feature_list, ,drop = FALSE]
 
 # set NA values to 0 (NA because below LFC threshold during testing or filtering)
 lfc_df[is.na(lfc_df)] <- 0