diff --git a/R/bambu.R b/R/bambu.R index db0368e2..29dda5f4 100644 --- a/R/bambu.R +++ b/R/bambu.R @@ -266,7 +266,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[[i]])!="CompressedCharacterList"){ # !is.list(clusters) is FALSE for CompressedCharacterList + if(class(clusters)!="CompressedCharacterList"&(!is.list(clusters))){ 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, @@ -287,7 +287,7 @@ bambu <- function(reads, annotations = NULL, genome = NULL, NDR = NULL, if(length(quantData)>1){ iter <- clusters[[i]] #lowMemory mode }else{ - iter <- clusters#do.call(c,clusters) + iter <- do.call(c,clusters) #clusters direct assignment in Multiplex_Major_Patch is throwing error } } }