remove redundant code to factor CB column

Author: lingminhao

R/prepareDataFromBam.R

@@ -102,10 +102,6 @@ prepareDataFromBam <- function(bamFile, yieldSize = NULL, verbose = FALSE,
         readGrgList <- readGrgList[[1]]
     }
 
-    if (demultiplexed){
-        mcols(readGrgList)$CB <- as.factor(mcols(readGrgList)$CB)
-    }
-
     # remove microexons of width 1bp from list
     readGrgList <- readGrgList <- readGrgList[sum(width(readGrgList)) > 1]
     numNoCBs <- sum(is.na(mcols(readGrgList)$CB))