Update combine_cluster_plots_and_save.R

R/combine_cluster_plots_and_save.R

@@ -24,6 +24,6 @@ combine_cluster_plots_and_save <- function(plot_list, cluster, out_path = path,
                                              ncol = 1, rel_heights = c(1, .1)) +
     ggtitle(paste("Cluster:", cluster))
   ggsave(file.path(out_path, paste0("Cluster_overview_", cluster, ".pdf")),
-         combo_pl, width = w, height = h, units = "cm")
-  return(combo_pl)
+         combo_pl_with_legend, width = w, height = h, units = "cm")
+  return(combo_pl_with_legend)
 }