fix rc assignment bug (multi-sample bambu-sc)

GoekeLab · Feb 17, 2025 · 69d2bf8 · 69d2bf8
1 parent 4725911
commit 69d2bf8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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,