moved the check condition for gtf one level down to test for txdb obj…

…ect first Former-commit-id: 6a1019c
GoekeLab · Jul 28, 2020 · 87b4a0e · 87b4a0e
1 parent 5738053
commit 87b4a0e
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/annotationFunctions.R b/R/annotationFunctions.R
@@ -12,9 +12,6 @@
 #'  package = "bambu")
 #'  gr <- prepareAnnotationsFrom(x = gtf.file)
 prepareAnnotations <- function(x) {
-  if(grepl(".gtf",x)){
-    return(prepareAnnotationsFromGTF(x))
-  }
   if(class(x) == "TxDb"){
     exonsByTx = exonsBy(txdb,by='tx', use.names=TRUE)
     if(any(duplicated(names(exonsByTx)))) {
@@ -37,8 +34,14 @@ prepareAnnotations <- function(x) {
     minEqClasses <- getMinimumEqClassByTx(exonsByTx)
     mcols(exonsByTx)$eqClass <- minEqClasses$eqClass[match(names(exonsByTx),minEqClasses$queryTxId)]
     return(exonsByTx)
+  }else{
+    if(grepl(".gtf",x)){
+      return(prepareAnnotationsFromGTF(x))
+    }
+
   }
 
+
 }