From b122513e4ce1c15c51d594bbc19b0a906edea87c Mon Sep 17 00:00:00 2001 From: lingminhao Date: Wed, 5 Feb 2025 17:03:26 +0800 Subject: [PATCH] fix bug about CompressedCharacterList --- R/bambu.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/bambu.R b/R/bambu.R index bc68727b..a42ae236 100644 --- 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,