check for empty elements using is.null instead of isEmpty

al2na · Jan 17, 2024 · d80f041 · d80f041
1 parent 3709977
commit d80f041
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/tabix.functions.R b/R/tabix.functions.R
@@ -311,7 +311,7 @@ makeTabixHeader <- function(slotList) {
                       }
   )
   # then we remove slots we don't need in the header (as the @.Data slot) 
-  tabixHead <- tabixHead[!S4Vectors::isEmpty(tabixHead)]
+  tabixHead <- tabixHead[!is.null(tabixHead)]
 
   return(tabixHead)
 
@@ -388,7 +388,7 @@ readTabixHeader <- function(tbxFile) {
                        }
   )
 
-  headerVals <- headerVals[!isEmpty(headerVals)]
+  headerVals <- headerVals[!is.null(headerVals)]
 
   # parse the object class 
   class <- unlist(sapply((strsplit(gsub("#", "", h),split = ":")), function(x) if(x[1]=="Class") return(x[2])))