Mercurial > repos > greg > ideas_genome_tracks

changeset 71:c04084f77b33 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Wed, 20 Dec 2017 13:25:36 -0500
parents fab0551a29ec
children 623f81b08310
files ideas_genome_tracks.R
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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=" "));