Mercurial > repos > greg > ideas

changeset 140:17e8829bbae2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Tue, 19 Dec 2017 12:29:29 -0500
parents 84c909b549a9
children a976dd6fcd1b
files create_heatmap.R
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);