fix bug about CompressedCharacterList

GoekeLab · Feb 5, 2025 · b122513 · b122513 · lingminhao · Feb 6, 2025
1 parent 0156222
commit b122513
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/bambu.R b/R/bambu.R
@@ -268,7 +268,7 @@ bambu <- function(reads, annotations = NULL, genome = NULL, NDR = NULL,
             #load in the barcode clustering from file if provided
             iter <- seq_len(ncol(metadata(quantData_i)$countMatrix)) # iter is integer
             if(!is.null(clusters)){
-                if(class(clusters)!="CompressedCharacterList"){ # !is.list(clusters) is FALSE for CompressedCharacterList 
+                if(class(clusters[[i]])!="CompressedCharacterList"){ # !is.list(clusters) is FALSE for CompressedCharacterList 
                     clusterMaps <- NULL
                     for(j in seq_along(metadata(quantData_i)$sampleNames)){ #load in a file per sample name provided
                         clusterMap <- fread(clusters[[j]], header = FALSE,