summary for invalid annotation

kaischmid · Jan 16, 2018 · 89509d7 · 89509d7
1 parent 5a26ac8
commit 89509d7
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/utils/uropa_summary.R b/utils/uropa_summary.R
@@ -135,6 +135,9 @@ features <- c()
 	df.uropa.final[,"distance"] <- as.numeric(df.uropa.final[,"distance"])
 	df.uropa.final <- df.uropa.final[complete.cases(df.uropa.final),]
 	if(nrow(df.uropa.final)==0){
+		mtext("UROPA summary", side=3, line=0,outer=FALSE, cex=2)
+		mtext("No valid peak annotations with specified query/queries, summary unfeasible!")
+		invisible(dev.off())
 		stop("No valid peak annotations with specified query/queries, summary unfeasible!")
 	}
 	anno.peaks <- nrow(df.uropa.final)