fix: standardize list access for all sample sizes

lingminhao · lingminhao · commit 4bd48bf163c4 · 2026-03-27T16:19:46.000+08:00
diff --git a/R/bambu.R b/R/bambu.R
@@ -294,11 +294,7 @@ bambu <- function(reads, annotations = NULL, genome = NULL, NDR = NULL,
                 iter <- clustering
                 
               } else{ #if clusters is a list
-                if(length(quantData)>1){
-                  iter <- clusters[[i]] #lowMemory mode
-                }else{
-                  iter <- clusters#do.call(c,clusters)
-                }
+                iter <- clusters[[i]] 
               }
             }
             countsSeCompressed <- bplapply(iter, FUN = function(j){ # previous i changed to j to avoid duplicated assignment 

Original file line number	Diff line number	Diff line change
`@@ -294,11 +294,7 @@ bambu <- function(reads, annotations = NULL, genome = NULL, NDR = NULL,`
`294`	`294`	`iter <- clustering`
`295`	`295`
`296`	`296`	`} else{ #if clusters is a list`
`297`		`- if(length(quantData)>1){`
`298`		`- iter <- clusters[[i]] #lowMemory mode`
`299`		`- }else{`
`300`		`- iter <- clusters#do.call(c,clusters)`
`301`		`- }`
	`297`	`+ iter <- clusters[[i]]`
`302`	`298`	`}`
`303`	`299`	`}`
`304`	`300`	`countsSeCompressed <- bplapply(iter, FUN = function(j){ # previous i changed to j to avoid duplicated assignment`