# HG changeset patch
# User greg
# Date 1513704569 18000
# Node ID 17e8829bbae25136dc6b5e42d443b503a89c0306
# Parent  84c909b549a96e92fa72ff1fa8dbd5ea7ab5bcd5
Uploaded

diff -r 84c909b549a9 -r 17e8829bbae2 create_heatmap.R
--- a/create_heatmap.R	Tue Dec 19 12:29:20 2017 -0500
+++ b/create_heatmap.R	Tue Dec 19 12:29:29 2017 -0500
@@ -119,7 +119,8 @@
 for (i in 1:length(para_files)) {
     para_file <- para_files[i];
     para_file_base_name <- strsplit(para_file, split="/")[[1]][2]
-    output_file_name <- gsub(".para", ".pdf", para_file_base_name)
+    output_file_base_name <- gsub(".para", "", para_file_base_name)
+    output_file_name <- paste(output_file_base_name, "state", i, "pdf", sep=".")
     output_file_path <- paste(opt$output_dir, output_file_name, sep="/");
     data_frame <- read.table(para_file, comment="!", header=T);
     create_heatmap(data_frame, output_file_path);