fix for 1 sender cell type in LFC plot

saeyslab · Aug 20, 2024 · 193f03e · 193f03e
1 parent d8a5b5a
commit 193f03e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/vignettes/seurat_steps.Rmd b/vignettes/seurat_steps.Rmd
@@ -416,7 +416,7 @@ DE_table_top_ligands <- lapply(
 DE_table_top_ligands <- DE_table_top_ligands %>%  reduce(., full_join) %>% 
   column_to_rownames("gene") 
 
-vis_ligand_lfc <- as.matrix(DE_table_top_ligands[rev(best_upstream_ligands), ]) 
+vis_ligand_lfc <- as.matrix(DE_table_top_ligands[rev(best_upstream_ligands), , drop = FALSE]) 
 
 p_lfc <- make_threecolor_heatmap_ggplot(vis_ligand_lfc,
                                 "Prioritized ligands", "LFC in Sender",

diff --git a/vignettes/seurat_steps.md b/vignettes/seurat_steps.md
@@ -663,7 +663,7 @@ DE_table_top_ligands <- lapply(
 DE_table_top_ligands <- DE_table_top_ligands %>%  reduce(., full_join) %>% 
   column_to_rownames("gene") 
 
-vis_ligand_lfc <- as.matrix(DE_table_top_ligands[rev(best_upstream_ligands), ]) 
+vis_ligand_lfc <- as.matrix(DE_table_top_ligands[rev(best_upstream_ligands), , drop = FALSE])
 
 p_lfc <- make_threecolor_heatmap_ggplot(vis_ligand_lfc,
                                 "Prioritized ligands", "LFC in Sender",