| ... | ... |
@@ -80,7 +80,8 @@ scrna_evalPlot_silh <- function( res, what=c("minSilWidth","meanSilWidth"),
|
| 80 | 80 |
pp <- res$pp |
| 81 | 81 |
res <- as.matrix(res$res) |
| 82 | 82 |
ro <- .dosort(res, reorder_rows) |
| 83 |
- if(reorder_columns) res <- res[,order(colMeans(res), decreasing=TRUE)] |
|
| 83 |
+ if(reorder_columns) |
|
| 84 |
+ res <- res[,order(colMeans(res), decreasing=TRUE),drop=FALSE] |
|
| 84 | 85 |
|
| 85 | 86 |
cellfn <- .getCellFn(res, res, value_format, value_cols, font_factor) |
| 86 | 87 |
if(is.null(title)) title <- gsub("\\.","\n",what)
|
