Escape the entire intron/exon table generation if there are no overla…

…ps of either type

R/annotate.r

@@ -170,6 +170,9 @@ goldmine <- function(query, genes=getGenes(geneset="ucsc", genome=genome, cached
 				}
 				all.o <- rbind(exon.o, intron.o)
 
+				if(nrow(all.o)>0)
+				{
+
 				message("Generating exon/intron overlap diagrams")
 				kgxs <- rbind(data.table(srow=genemodels$exon$srow, num=genemodels$exon$num, type="E"), data.table(srow=genemodels$intron$srow, num=genemodels$intron$num, type="I"))
 				pairs.dt <- data.table(qrow=anng$qrow, srow=anng$srow)
@@ -206,6 +209,8 @@ goldmine <- function(query, genes=getGenes(geneset="ucsc", genome=genome, cached
 
 				anng <- merge(anng,st.dt,by=c("qrow","srow"),all.x=T)
 
+				}
+
 				# 3' Ends
 				end.o <- goldmine:::calcOverlapForReport(query.gr,genemodels$end3, all=FALSE)
 				colnames(end.o) <- c("qrow", "srow", "3' End")