From dbc78f53904469f9abaa3eeecf8e1c4e9b051829 Mon Sep 17 00:00:00 2001
From: bow <bow@bow.web.id>
Date: Fri, 6 Mar 2015 11:28:13 +0100
Subject: [PATCH] Add general heatmap plotting fallback when error is
encountered
---
.../sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/public/gentrap/src/main/resources/nl/lumc/sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R b/public/gentrap/src/main/resources/nl/lumc/sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R
index 0c402ae5b..ec3e98da4 100755
--- a/public/gentrap/src/main/resources/nl/lumc/sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R
+++ b/public/gentrap/src/main/resources/nl/lumc/sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R
@@ -126,11 +126,11 @@ plotHeatmap <- function(in.data, out.name=OUTPUT.PLOT, count.type=COUNT.TYPE, tm
dev.off()
}
-plotPlaceholder <- function(out.name=OUTPUT.PLOT) {
+plotPlaceholder <- function(out.name=OUTPUT.PLOT, text.display="Not enough data points for plotting") {
png(out.name, height=800, width=800, res=100)
par(mar=c(0,0,0,0))
plot(c(0, 1), c(0, 1), ann=F, bty='n', type='n', xaxt='n', yaxt='n')
- text(x=0.5, y=0.5, paste("Not enough data points for plotting"),
+ text(x=0.5, y=0.5, paste(text.display),
cex=1.6, col="black")
dev.off()
}
@@ -139,7 +139,7 @@ plotPlaceholder <- function(out.name=OUTPUT.PLOT) {
parsed <- prepTable(INPUT.PATH)
if (nrow(parsed) > 0) {
cors <- cor(parsed, method="spearman")
- plotHeatmap(cors)
+ tryCatch(plotHeatmap(cors), error=function (e) plotPlaceholder(text.display="Error occured during plotting"))
} else {
plotPlaceholder()
}
--
GitLab