From d15bcd35a5bc8b654ab0176694e55c324ec30155 Mon Sep 17 00:00:00 2001
From: Annika Fust <annika.fust@mpi-bn.mpg.de>
Date: Thu, 14 Sep 2017 13:34:39 +0200
Subject: [PATCH] check for valid annotations

---
 utils/uropa_summary.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/utils/uropa_summary.R b/utils/uropa_summary.R
index 4c14948..d42ba27 100755
--- a/utils/uropa_summary.R
+++ b/utils/uropa_summary.R
@@ -134,6 +134,9 @@ features <- c()
 	# stats is based on annoted peaks -> remove na rows
 	df.uropa.final[,"distance"] <- as.numeric(df.uropa.final[,"distance"])
 	df.uropa.final <- df.uropa.final[complete.cases(df.uropa.final),]
+	if(nrow(df.final)==0){
+		stop("No valid peak annotations with specified query/queries, summary unfeasible!")
+	}
 	anno.peaks <- nrow(df.uropa.final)
 	# get infos from config for overview page
 	config <- fromJSON(conf)