|
...
|
...
|
@@ -263,7 +263,9 @@ plotSCEHeatmap <- function(inSCE, useAssay = 'logcounts', useReducedDim = NULL,
|
|
263
|
263
|
# TODO: `aggregateAcrossCells` produce duplicated variables in colData
|
|
264
|
264
|
# and unwanted "ncell" variable even if I set `store.number = NULL`.
|
|
265
|
265
|
colData(SCE) <- colData(SCE)[,c(aggregateCol),drop=FALSE] ##change
|
|
|
266
|
+ print(c(colData(SCE), list(sep = "_")))
|
|
266
|
267
|
newColnames <- do.call(paste, c(colData(SCE), list(sep = "_")))
|
|
|
268
|
+ print(newColnames)
|
|
267
|
269
|
colnames(SCE) <- newColnames
|
|
268
|
270
|
rowData(SCE) <- origRowData
|
|
269
|
271
|
}
|
|
...
|
...
|
@@ -293,7 +295,7 @@ plotSCEHeatmap <- function(inSCE, useAssay = 'logcounts', useReducedDim = NULL,
|
|
293
|
295
|
|
|
294
|
296
|
# Prepare
|
|
295
|
297
|
|
|
296
|
|
- if(useAssay == "reducedDim"){
|
|
|
298
|
+ if(!is.null(useReducedDim)){
|
|
297
|
299
|
mat <- assay(SCE)
|
|
298
|
300
|
mat <- .orderMatrix(mat)
|
|
299
|
301
|
|
