# HG changeset patch
# User jeremyjliu
# Date 1425666243 18000
# Node ID b868314320e263efda931a69fc7d2d8012f43f74
# Parent  4ce22698acb083cc1ce82940baad71091fef1046
Uploaded

diff -r 4ce22698acb0 -r b868314320e2 region_motif_compare.r
--- 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]
diff -r 4ce22698acb0 -r b868314320e2 region_motif_intersect.r
--- 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]