Debug heatmap generation

files/scripts/populations.prepare.report.R

@@ -106,7 +106,7 @@ tryCatch({
     png(filename = paste(parameters$results_dir,parameters$populations_output_dir,"IBS_mqc.png",sep = "/"), height=800, width=800)
     topAnnot = HeatmapAnnotation(Population = pop_code1, col = list(Population=popc))
     leftAnnot = HeatmapAnnotation(Population = pop_code1, col = list(Population=popc),which = "row",show_legend = FALSE)
-    Heatmap(ibs$ibs, top_annotation=topAnnot, left_annotation=leftAnnot)
+    print(Heatmap(ibs$ibs, top_annotation=topAnnot, left_annotation=leftAnnot))
     dev.off()
 }, error = function(e) {
     png(filename = paste(parameters$results_dir,parameters$populations_output_dir,"IBS_mqc.png",sep = "/"), height=800, width=800)