# HG changeset patch
# User greg
# Date 1498502561 14400
# Node ID 53bc81f3ebad4f5953a117849a82d715cde80dbd
# Parent  1a3973eea61c06cd29896e2f8f625fc8348a4d76
Uploaded

diff -r 1a3973eea61c -r 53bc81f3ebad ks_distribution.R
--- 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) {