From 7de518be1475d625f1c25b11c3e7c81e52d5ba0f Mon Sep 17 00:00:00 2001 From: Ryan Corces Date: Wed, 1 Mar 2023 05:41:52 -0800 Subject: [PATCH] bcPass XRawList error in which Attempting to address https://github.com/GreenleafLab/ArchR/issues/1860 --- R/CreateArrow.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/CreateArrow.R b/R/CreateArrow.R index c0fb12ff..e592eec4 100644 --- a/R/CreateArrow.R +++ b/R/CreateArrow.R @@ -1966,7 +1966,7 @@ createArrowFiles <- function( mcols(fragments)$RG@values <- stringr::str_split(mcols(fragments)$RG@values, pattern = "#", simplify=TRUE)[,2] #Order RG RLE based on bcPass - fragments <- fragments[BiocGenerics::which(paste0(mcols(fragments)$RG) %bcin% bcPass)] + fragments <- fragments[BiocGenerics::which(paste0(mcols(fragments)$RG) %bcin% as.character(bcPass))] if(length(fragments) > 0){ fragments <- fragments[order(S4Vectors::match(paste0(mcols(fragments)$RG), as.character(bcPass)))] } @@ -2060,7 +2060,7 @@ createArrowFiles <- function( } #Order RG RLE based on bcPass - fragments <- fragments[BiocGenerics::which(paste0(mcols(fragments)$RG) %bcin% bcPass)] + fragments <- fragments[BiocGenerics::which(paste0(mcols(fragments)$RG) %bcin% as.character(bcPass))] if(length(fragments) > 0){ fragments <- fragments[order(S4Vectors::match(paste0(mcols(fragments)$RG), as.character(bcPass)))] }