[Swift-commit] r4104 - SwiftApps/SwiftR/Swift/R

[noreply at svn.ci.uchicago.edu]

Author: tga
Date: 2011-02-15 15:47:58 -0600 (Tue, 15 Feb 2011)
New Revision: 4104

Modified:
   SwiftApps/SwiftR/Swift/R/Workers.R
Log:
Bugfix: Missing processing of project argument to swfitInit




Modified: SwiftApps/SwiftR/Swift/R/Workers.R
===================================================================
--- SwiftApps/SwiftR/Swift/R/Workers.R	2011-02-15 21:26:14 UTC (rev 4103)
+++ SwiftApps/SwiftR/Swift/R/Workers.R	2011-02-15 21:47:58 UTC (rev 4104)
@@ -130,6 +130,12 @@
         cmdString <- paste(cmdString, "-q", shQuote(queue)) 
     }
     
+    if(is.null(project))
+        project <- getOption("swift.project")
+    if(! is.null(project) )  {
+        cmdString <- paste(cmdString, "-A", shQuote(project)) 
+    }
+    
     if(is.null(rcmd))
         rcmd <- getOption("swift.rcmd")
     if(! is.null(rcmd) )  {