Use obj instead of apl

NBISweden · Mar 23, 2022 · 75b22ee · 75b22ee
1 parent fe76ec5
commit 75b22ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/methods-AlignmentPairsList-class.R b/R/methods-AlignmentPairsList-class.R
@@ -87,8 +87,8 @@ setMethod("geneBodyCoverage", signature = c("AlignmentPairsList"),
                                       BPPARAM=bpparam)
     }
     x <- bind_rows(lapply(gbc, data.frame), .id="id")
-    if (!is.null(names(apl)))
-        x[["id"]] <- factor(x[["id"]], levels=names(apl))
+    if (!is.null(names(obj)))
+        x[["id"]] <- factor(x[["id"]], levels=names(obj))
     x
 })