# HG changeset patch
# User greg
# Date 1510857211 18000
# Node ID f0dfff1128c80b1e66698d80d64e0bc6089f09f4
# Parent  0f385fb474ca7a7008cad7cddd97aa350ec3c0c1
Uploaded

diff -r 0f385fb474ca -r f0dfff1128c8 ideas_genome_tracks.R
--- a/ideas_genome_tracks.R	Thu Nov 16 13:24:31 2017 -0500
+++ b/ideas_genome_tracks.R	Thu Nov 16 13:33:31 2017 -0500
@@ -171,13 +171,16 @@
 track_db <- create_track_db(opt$input_dir_state, opt$chrom_len_file, opt$header, tracks_dir, opt$hub_id, hub_name, state_color, opt$state_name, opt$cell_info);
 
 # Write the outputs.
-track_db_file_name <- paste(tracks_dir, "trackDb_", opt$hub_id, ".txt", sep="")
-write.table(track_db, file=track_db_file_name, quote=F, row.names=F, col.names=F);
+track_db_file_name <- paste("trackDb_", opt$hub_id, ".txt", sep="")
+track_db_file_path <- paste(tracks_dir, track_db_file_name, sep="/")
+write.table(track_db, file=track_db_file_path, quote=F, row.names=F, col.names=F);
 
 obj_name <- c(paste("genome", opt$build), paste("trackDb trackDb_", opt$hub_id, ".txt", sep=""))
-genomes_file_name <- paste(opt$output_hub_files_path, "genomes_", opt$hub_id, ".txt", sep="")
-write.table(obj_name, file=genomes_file_name, quote=F, row.names=F, col.names=F);
+genomes_file_name <- paste("genomes_", opt$hub_id, ".txt", sep="")
+genomes_file_path <- paste(opt$output_hub_files_path, genomes_file_name, sep="/")
+write.table(obj_name, file=genomes_file_path, quote=F, row.names=F, col.names=F);
 
 obj_name <- c(paste("hub", opt$hub_id), paste("shortLabel", opt$hub_id), paste("longLabel", hub_name), paste("genomesFile genomes_", opt$hub_id, ".txt", sep=""), paste("email", opt$email))
-hub_file_name <- paste(opt$output_hub_files_path, "hub_", opt$hub_id, ".txt", sep="")
-write.table(obj_name, file=hub_file_name, quote=F, row.names=F, col.names=F);
+hub_file_name <- paste("hub_", opt$hub_id, ".txt", sep="")
+hub_file_path <- paste(opt$output_hub_files_path, hub_file_name, sep="/")
+write.table(obj_name, file=hub_file_path, quote=F, row.names=F, col.names=F);