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

[noreply at svn.ci.uchicago.edu]

Author: tga
Date: 2011-02-11 10:36:08 -0600 (Fri, 11 Feb 2011)
New Revision: 4085

Modified:
   SwiftApps/SwiftR/Swift/R/Workers.R
Log:
Fixed bug with counting number of nodes for ssh.


Modified: SwiftApps/SwiftR/Swift/R/Workers.R
===================================================================
--- SwiftApps/SwiftR/Swift/R/Workers.R	2011-02-10 23:25:49 UTC (rev 4084)
+++ SwiftApps/SwiftR/Swift/R/Workers.R	2011-02-11 16:36:08 UTC (rev 4085)
@@ -100,8 +100,10 @@
         if(is.null(nodes))
             nodes <- getOption("swift.nodes")
         if(is.null(nodes))
-            if (server == "ssh")
-                nodes <- length(strsplit(hosts, " "))
+            if (server == "ssh") {
+                nodes <- length(strsplit(hosts, " ", fixed=T)[[1]])
+                cat("Node code for hosts ", hosts, " is ", nodes)
+            }
             else 
                 nodes <- 1 # Default value
         if(! is.null(nodes) )  {