From 01e0f58582d0ec4214a17aa2f9073f5fd562c906 Mon Sep 17 00:00:00 2001
From: Yue Cao <yue.cao@sydney.edu.au>
Date: Sat, 14 Oct 2023 18:38:39 +1100
Subject: [PATCH] fix output report

---
 inst/extdata/output_report.Rmd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inst/extdata/output_report.Rmd b/inst/extdata/output_report.Rmd
index 271e9aa..c14389e 100644
--- a/inst/extdata/output_report.Rmd
+++ b/inst/extdata/output_report.Rmd
@@ -645,9 +645,9 @@ plot_heatmap_bulk <- function(data , num_features = 20  ){
    if (length(top_gene ) == 0){
           
     }else if (length(top_gene) == 1){
-             pheatmap( thiscelltype[top_gene, , drop=FALSE]  ,   
+             pheatmap( data[top_gene, , drop=FALSE]  ,   
                   annotation = condition,
-                 main = label , cluster_rows = FALSE  , color=colorRampPalette(c("navy", "white", "red"))(50) )
+                   cluster_rows = FALSE  , color=colorRampPalette(c("navy", "white", "red"))(50) )
    }else{
 
         p <-  pheatmap( data[top_gene, ]  ,  annotation = condition,