check for valid annotations

kaischmid · Sep 14, 2017 · d15bcd3 · d15bcd3
1 parent c38e86d
commit d15bcd3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)