diff --git a/utils/uropa_summary.R b/utils/uropa_summary.R index 6af8ac1..9a3d671 100755 --- 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)