another attempt to carry over the which names correctly

lawremi · Aug 21, 2019 · 90d4209 · 90d4209
1 parent 5388ac4
commit 90d4209
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/bigWig.R b/R/bigWig.R
@@ -230,12 +230,12 @@ setMethod("import", "BigWigFile",
             flatWhich <- unlist(which, use.names = FALSE)
             if (is.null(flatWhich))
               flatWhich <- IRanges()
-            which <- split(flatWhich, factor(space(which), seqlevels(si)))
+            which_rl <- split(flatWhich, factor(space(which), seqlevels(si)))
             if (as != "NumericList") {
-              which <- as(which, "NormalIRangesList")
+                which_rl <- as(which, "NormalIRangesList")
             }
-            which <- GRanges(which)
-            names(which) <- names(flatWhich)
+            which <- GRanges(which_rl)
+            names(which) <- names(unlist(which_rl, use.names=FALSE))
             C_ans <- .Call(BWGFile_query, expandPath(path(con)),
                            as.character(seqnames(which)), ranges(which),
                            identical(colnames(selection), "score"),