fix output report

SydneyBioX · Oct 14, 2023 · 01e0f58 · 01e0f58
1 parent 224dc90
commit 01e0f58
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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,