From 075878b1b97960adf25ddb25fc4078b95177d9e5 Mon Sep 17 00:00:00 2001
From: bow <bow@bow.web.id>
Date: Sat, 7 Mar 2015 15:34:54 +0100
Subject: [PATCH] Catch possible exceptions when parsing table for heatmap
plotting
---
.../sasc/biopet/pipelines/gentrap/scripts/plot_heatmap.R | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
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 ec3e98da4..2f6acb3b7 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
@@ -136,7 +136,13 @@ plotPlaceholder <- function(out.name=OUTPUT.PLOT, text.display="Not enough data
}
-parsed <- prepTable(INPUT.PATH)
+parsed <- tryCatch(
+ prepTable(INPUT.PATH),
+ error=function (e) {
+ plotPlaceholder(text.display="Error occured during table parsing")
+ q(status=0)
+ })
+
if (nrow(parsed) > 0) {
cors <- cor(parsed, method="spearman")
tryCatch(plotHeatmap(cors), error=function (e) plotPlaceholder(text.display="Error occured during plotting"))
--
GitLab