Commit dcbf7645b6b4d5e86c6a2d0f4e681797f6ab85af
1 parent
b0db05d8
sort algorithms case insensitive for tables
Showing
1 changed file
with
1 additions
and
1 deletions
share/openbr/plotting/plot_utils.R
| @@ -45,7 +45,7 @@ plotTable <- function(tableData=NULL, name=NULL, labels=NULL) { | @@ -45,7 +45,7 @@ plotTable <- function(tableData=NULL, name=NULL, labels=NULL) { | ||
| 45 | input = tableData$Y | 45 | input = tableData$Y |
| 46 | } | 46 | } |
| 47 | mat <- matrix(input, nrow=length(labels), ncol=length(algs), byrow=FALSE) | 47 | mat <- matrix(input, nrow=length(labels), ncol=length(algs), byrow=FALSE) |
| 48 | - colnames(mat) <- algs | 48 | + colnames(mat) <- algs[order(tolower(algs))] |
| 49 | rownames(mat) <- labels | 49 | rownames(mat) <- labels |
| 50 | table <- as.table(mat) | 50 | table <- as.table(mat) |
| 51 | if (csv) { | 51 | if (csv) { |