changeset 36:b868314320e2 draft

Uploaded
author jeremyjliu
date Fri, 06 Mar 2015 13:24:03 -0500
parents 4ce22698acb0
children 76e108a19e64
files region_motif_compare.r region_motif_intersect.r
diffstat 2 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/region_motif_compare.r	Thu Feb 26 22:54:09 2015 -0500
+++ b/region_motif_compare.r	Fri Mar 06 13:24:03 2015 -0500
@@ -23,7 +23,7 @@
 # Set common and data directories
 args <- commandArgs()
 workingDir = args[7]
-pwmFile = args[8].split(',')[0] # If duplicate entires, take first one
+pwmFile = unlist(strsplit(args[8], ','))[1]  # If duplicate entires, take first one
 
 # Set input and reference files
 inTab1 = args[9]
--- a/region_motif_intersect.r	Thu Feb 26 22:54:09 2015 -0500
+++ b/region_motif_intersect.r	Fri Mar 06 13:24:03 2015 -0500
@@ -16,8 +16,8 @@
 
 # Retrive motif database path
 args <- commandArgs()
-motifDB_bgz = args[7].split(',')[0] # Handles duplicate entries in data table
-motifDB_tbi = args[8].split(',')[0] # Just takes the first one
+motifDB_bgz = unlist(strsplit(args[7], ','))[1] # Handles duplicate entries in data table
+motifDB_tbi = unlist(strsplit(args[8], ','))[1] # Just takes the first one
 
 # Set input and reference files, comment to toggle commmand line arguments
 inBed = args[9]