Commit 39f7a6539315004832384022e3527a632c20ace7
1 parent
7c7f53d7
Revert "sort algorithms case insensitive for tables"
This reverts commit dcbf7645b6b4d5e86c6a2d0f4e681797f6ab85af.
Showing
1 changed file
with
1 additions
and
1 deletions
share/openbr/plotting/plot_utils.R
| @@ -51,7 +51,7 @@ plotTable <- function(tableData=NULL, name=NULL, labels=NULL) { | @@ -51,7 +51,7 @@ plotTable <- function(tableData=NULL, name=NULL, labels=NULL) { | ||
| 51 | input = tableData$Y | 51 | input = tableData$Y |
| 52 | } | 52 | } |
| 53 | mat <- matrix(input, nrow=length(labels), ncol=length(algs), byrow=FALSE) | 53 | mat <- matrix(input, nrow=length(labels), ncol=length(algs), byrow=FALSE) |
| 54 | - colnames(mat) <- algs[order(tolower(algs))] | 54 | + colnames(mat) <- algs |
| 55 | rownames(mat) <- labels | 55 | rownames(mat) <- labels |
| 56 | table <- as.table(mat) | 56 | table <- as.table(mat) |
| 57 | if (csv) { | 57 | if (csv) { |