Mercurial > repos > greg > ks_distribution

changeset 52:53bc81f3ebad draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 26 Jun 2017 14:42:41 -0400
parents 1a3973eea61c
children b3333795c1f9
files ks_distribution.R
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/ks_distribution.R	Mon Jun 26 14:33:04 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:42:41 2017 -0400
@@ -22,8 +22,12 @@
         component_colors <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
     } else {
         # Handle selected colors for components.
+        component_colors <- c()
         colors <- as.character(colors)
-        component_colors <- strsplit(colors, ",")
+        items <- strsplit(colors, ",")
+        for item in items {
+            component_colors <- c(component_colors, as.character(item))
+        }
         num_colors_specified <- length(component_colors)
         if (num_colors_specified < number_comp) {
             for (i in num_colors_specified:number_comp) {