add back row.names to prevent missing colnames in se_pseudobulk

Author: lingminhao

R/bambu.R

@@ -317,7 +317,8 @@ bambu <- function(reads, annotations = NULL, genome = NULL, NDR = NULL,
                 ColNames <- c(ColNames, names(iter))
                 colData.all[[i]] <- data.frame(
                   id = names(countsSeCompressed), 
-                  sampleName = names(countsSeCompressed)
+                  sampleName = names(countsSeCompressed),
+                  row.names = names(countsSeCompressed)
                 )
             } else{
                 ColNames <- c(ColNames, colnames(quantData_i))