Fixes the do.call paste error

Author: Ashastry2

R/plotSCEHeatmap.R

@@ -262,9 +262,9 @@ plotSCEHeatmap <- function(inSCE, useAssay = 'logcounts', useReducedDim = NULL,
                                 store.number = NULL, statistics = "mean")
     # TODO: `aggregateAcrossCells` produce duplicated variables in colData
     # and unwanted "ncell" variable even if I set `store.number = NULL`.
-    colData(SCE) <- colData(SCE)[,c(aggregateCol),drop=FALSE] ##change
-    newColnames <- do.call(paste, list(colData(SCE)[,c(aggregateCol),drop=FALSE], list(sep = "_")))
-    colnames(SCE) <- newColnames
+   #colData(SCE) <- colData(SCE)[,c(aggregateCol),drop=FALSE] ##change
+    temp_df<-as.data.frame(colData(SCE)[,c(aggregateCol),drop=FALSE]) %>% unite("new_colnames",1:ncol(.),sep = "_") %>% remove_rownames() %>% column_to_rownames("new_colnames")
+    colData(SCE)<-DataFrame(temp_df)
     rowData(SCE) <- origRowData
   }
   if (!is.null(aggregateRow)) {