Merge pull request #109 from IOHprofiler/Color_upload_fix

Color upload fix
IOHprofiler · Nov 13, 2023 · a909a54 · a909a54
2 parents ce40548 + 81fc425
commit a909a54
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: IOHanalyzer
 Type: Package
 Title: Data Analysis Part of 'IOHprofiler'
-Version: 0.1.8.3
+Version: 0.1.8.4
 Maintainer: Diederick Vermetten <d.l.vermetten@liacs.leidenuniv.nl>
 Authors@R: c(
     person("Hao", "Wang", email = "h.wang@liacs.leidenuniv.nl", role = "aut", comment = c(ORCID = "0000-0002-4933-5181")),

diff --git a/R/plot.R b/R/plot.R
@@ -242,7 +242,7 @@ create_color_scheme <- function(ids) {
   if (length(ids) == 0) {
     return(NULL)
   }
-  ids <- sort(ids)
+  ids <- sort(ids, method='radix')
   colors <- color_palettes(length(ids))
   linestyles <- rep(c("solid", "dash", "dot"), ceiling(length(colors)/3))[1:length(colors)]
   IOHanalyzer_env$id_colors <- data.table(ids, colors, linestyles)
@@ -257,7 +257,7 @@ create_color_scheme <- function(ids) {
 #' @examples
 #' get_color_scheme(get_algId(dsl))
 get_color_scheme <- function(ids_in){
-  ids_in <- sort(ids_in)
+  ids_in <- sort(ids_in, method='radix')
   if (is.null(IOHanalyzer_env$id_colors))
     create_color_scheme(ids_in)
   cdt <- IOHanalyzer_env$id_colors
@@ -279,7 +279,7 @@ get_color_scheme <- function(ids_in){
 #' @examples
 #' get_line_style(get_algId(dsl))
 get_line_style <- function(ids_in){
-  ids_in <- sort(ids_in)
+  ids_in <- sort(ids_in, method='radix')
   if (is.null(IOHanalyzer_env$id_colors))
     create_color_scheme(ids_in)
   cdt <- IOHanalyzer_env$id_colors