From dcbf7645b6b4d5e86c6a2d0f4e681797f6ab85af Mon Sep 17 00:00:00 2001
From: bhklein <ben@rankone.io>
Date: Fri, 4 Sep 2015 12:29:52 -0400
Subject: [PATCH] sort algorithms case insensitive for tables

---
 share/openbr/plotting/plot_utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/openbr/plotting/plot_utils.R b/share/openbr/plotting/plot_utils.R
index 40e684e..ef49963 100644
--- a/share/openbr/plotting/plot_utils.R
+++ b/share/openbr/plotting/plot_utils.R
@@ -45,7 +45,7 @@ plotTable <- function(tableData=NULL, name=NULL, labels=NULL) {
         input = tableData$Y
     }
     mat <- matrix(input, nrow=length(labels), ncol=length(algs), byrow=FALSE)
-    colnames(mat) <- algs
+    colnames(mat) <- algs[order(tolower(algs))]
     rownames(mat) <- labels
     table <- as.table(mat)
     if (csv) {
--
libgit2 0.21.4