From 69d2bf8cb48484b2e9d1717c461f61bdf8f70673 Mon Sep 17 00:00:00 2001 From: lingminhao Date: Mon, 17 Feb 2025 17:51:03 +0800 Subject: [PATCH] fix rc assignment bug (multi-sample bambu-sc) --- R/bambu-processReads.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/bambu-processReads.R b/R/bambu-processReads.R index 963468c1..4daecc47 100644 --- a/R/bambu-processReads.R +++ b/R/bambu-processReads.R @@ -88,9 +88,9 @@ bambu.processReads <- function(reads, annotations, genomeSequence, readGrgList <- do.call(c, readGrgList) mcols(readGrgList)$id <- seq_along(readGrgList) if(!isFALSE(demultiplexed)){ - mcols(readGrgList[[i]])$sampleID <- as.numeric(mcols(readGrgList[[i]])$BC) + mcols(readGrgList)$sampleID <- as.numeric(mcols(readGrgList)$BC) } else { - mcols(readGrgList[[i]])$sampleID <- i + mcols(readGrgList)$sampleID <- i } readClassList <- constructReadClasses(readGrgList, genomeSequence = genomeSequence,annotations = annotations, stranded = stranded, min.readCount = min.readCount,