From 75b22ee3cf131810962e0b0c1abde0776d2a029e Mon Sep 17 00:00:00 2001 From: Per Unneberg Date: Wed, 23 Mar 2022 13:10:43 +0100 Subject: [PATCH] Use obj instead of apl --- R/methods-AlignmentPairsList-class.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/methods-AlignmentPairsList-class.R b/R/methods-AlignmentPairsList-class.R index 4417382..cb5fc49 100644 --- 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 })