Mercurial > repos > greg > ideas_genome_tracks
changeset 13:f0dfff1128c8 draft
Uploaded
| author | greg |
|---|---|
| date | Thu, 16 Nov 2017 13:33:31 -0500 |
| parents | 0f385fb474ca |
| children | 99c9770fdd7f |
| files | ideas_genome_tracks.R |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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);