Commit 075878b1 authored by bow's avatar bow
Browse files

Catch possible exceptions when parsing table for heatmap plotting

parent 83e4d44a
......@@ -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"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment