# HG changeset patch
# User greg
# Date 1513794336 18000
# Node ID c04084f77b33cc48a3946472584536b0085e023f
# Parent  fab0551a29ecb87f444ffe68dbd29293f10dba90
Uploaded

diff -r fab0551a29ec -r c04084f77b33 ideas_genome_tracks.R
--- a/ideas_genome_tracks.R	Wed Dec 20 13:20:52 2017 -0500
+++ b/ideas_genome_tracks.R	Wed Dec 20 13:25:36 2017 -0500
@@ -123,16 +123,18 @@
     }
     track_db = NULL;
     for (i in 1:length(cells)) {
+        # Get the color for the current state.
         if (is.null(state_indexes) || !is.element(i, s_indexes)) {
             data_frame <- read.table(para_files[i], comment="!", header=T);
-            color <- create_heatmap(data_frame);
+            color_hex_code <- create_heatmap(data_frame);
         } else {
             # Use the selected color for the current state.
             color_hex_code <- s_colors[i];
-            color <- paste(c(col2rgb(color_hex_code)), collapse=",");
         }
+        color <- paste(c(col2rgb(color_hex_code)), collapse=",");
+        # Get the bigDataUrl.
         big_data_url <- get_big_data_url(galaxy_url, encoded_dataset_id, tracks_dir, i, build);
-        # trackDb.txt track entry.
+        # trackDb.txt track hub entry.
         track_db = c(track_db, paste("track ", hub_name, "_track_", i, sep=""));
         track_db = c(track_db, "type bigBed");
         track_db = c(track_db, paste("bigDataUrl", big_data_url, sep=" "));