# HG changeset patch # User greg # Date 1510339832 18000 # Node ID 3bc9d3e88e7b067f6c22dbda54b7f41e990fdeeb # Parent 64b7d66acd756d201bbdfaedec887d7c235126c0 Uploaded diff -r 64b7d66acd75 -r 3bc9d3e88e7b create_genome_tracks.R --- a/create_genome_tracks.R Fri Nov 10 13:48:01 2017 -0500 +++ b/create_genome_tracks.R Fri Nov 10 13:50:32 2017 -0500 @@ -113,18 +113,12 @@ return(cells); } -# cell_info: shortid match with those in states, -# long id, cell description, text color -#run<-function(state_files, hub_id, opt$build, chrom_len_file, state_color, opt$target_url="http://bx.psu.edu/~yuzhang/tmp/", tracks_output_dir=NULL, hub_name=NULL, cell_info=NULL, header=NULL, statename=NULL) - if(length(opt$hub_name) == 0) { hub_name = opt$hub_id; } # Create the tracks output directory. -if(length(tracks_output_dir) == 0) { - tracks_output_dir = paste("tracks_", hub_id, "/", sep=""); -} +tracks_output_dir = paste("tracks_", hub_id, "/", sep=""); dir.create(tracks_output_dir, showWarnings=FALSE); # Create the color scheme.