fix bug about CompressedCharacterList

Author: lingminhao

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,