Mercurial > repos > greg > ideas

comparison create_heatmaps.R @ 162:19142fc18b2d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Fri, 12 Jan 2018 14:43:20 -0500
parents 04db93e8566b
children 9ab14f7f66c8
comparison
equal deleted inserted replaced
161:4609a1d14059 162:19142fc18b2d
15 15
16 heatmap_path <- paste(opt$script_dir, "create_heatmap.R", sep="/"); 16 heatmap_path <- paste(opt$script_dir, "create_heatmap.R", sep="/");
17 source(heatmap_path); 17 source(heatmap_path);
18 18
19 if (opt$in_training_mode) { 19 if (opt$in_training_mode) {
20 ext <- ".para0";
21 para_files <- list.files(path=opt$input_dir, pattern="\\.para0$", full.names=TRUE);
22 } else {
20 ext <- ".para"; 23 ext <- ".para";
21 para_files <- list.files(path=opt$input_dir, pattern="\\.para$", full.names=TRUE); 24 para_files <- list.files(path=opt$input_dir, pattern="\\.para$", full.names=TRUE);
22 } else {
23 ext <- ".para0";
24 para_files <- list.files(path=opt$input_dir, pattern="\\.para0$", full.names=TRUE);
25 } 25 }
26 for (i in 1:length(para_files)) { 26 for (i in 1:length(para_files)) {
27 para_file <- para_files[i]; 27 para_file <- para_files[i];
28 para_file_base_name <- strsplit(para_file, split="/")[[1]][2]; 28 para_file_base_name <- strsplit(para_file, split="/")[[1]][2];
29 output_file_base_name <- gsub(ext, "", para_file_base_name); 29 output_file_base_name <- gsub(ext, "", para_file_base_name);