# HG changeset patch
# User greg
# Date 1498500191 14400
# Node ID f8b303b9f455ec8ffe860f0e89356ff47ff87d32
# Parent  69ac2edffdde2db3c22e2dfc128fcb89cbe5e3dd
Uploaded

diff -r 69ac2edffdde -r f8b303b9f455 ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 13:58:37 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:03:11 2017 -0400
@@ -23,6 +23,7 @@
     } else {
         # Handle selected colors for components.
         specified_colors <- c()
+        colors <- as.character(colors)
         items <- strsplit(colors, ",")
         for (item in items) {
             specified_colors <- c(specified_colors, item)