This is in regards to the SNOW library.

I'm using Windows.  The problem is that makeSOCKcluster hangs in R as well
as the DOS command line.  Below I've shown that it completes the Rscript
until it reaches the line "slaveLoop(master)" , at which point it hangs.

=============================

In R:

> cl <-
makeSOCKcluster(names=c("localhost","localhost"),manual=T,outfile="jeff.log")
Manually start worker on localhost with
     C:/PROGRA~1/R/R-214~1.2/bin/Rscript.exe "C:/Program
Files/R/R-2.14.2/library/snow/RSOCKnode.R" MASTER=localhost PORT=11590
OUT=jeff.log SNOWLIB=C:/Program Files/R/R-2.14.2/library
[HANGS]
================================

On the DOS Command Line:

C:\Documents and Settings\Jeff>C:/PROGRA~1/R/R-214~1.2/bin/Rscript.exe
"C:/Program Files/R/R-2.14.2/library/snow/RSOCKno
de.R" MASTER=localhost PORT=11590 OUT=jeff.log SNOWLIB=C:/Program
Files/R/R-2.14.2/library
[HANGS]
^C
C:\Documents and Settings\Jeff>type jeff.log
starting worker for localhost:11590

====================================


In the file RSOCKnode.R, stalls after last line, after executing
"slaveLoop(master)".




local({
    master <- "localhost"
    port <- "8765"
    snowlib <- Sys.getenv("R_SNOW_LIB")
    outfile <- Sys.getenv("R_SNOW_OUTFILE")

    args <- commandArgs()
    pos <- match("--args", args)
    args <- args[-(1 : pos)]
    for (a in args) {
        pos <- regexpr("=", a)
        name <- substr(a, 1, pos - 1)
        value <- substr(a,pos + 1, nchar(a))
        switch(name,
               MASTER = master <- value,
               PORT = port <- value,
               SNOWLIB = snowlib <- value,
               OUT = outfile <- value,
               RANK = rank <- value,
               TMPWS = tmpWsName <- value)
    }
    ##**** these should be passed as arguments to makeNWSmaster
    Sys.setenv(MASTER = master)
    Sys.setenv(PORT = port)
    Sys.setenv(RANK = rank)
    Sys.setenv(TMPWS = tmpWsName)

    if (! (snowlib %in% .libPaths()))
        .libPaths(c(snowlib, .libPaths()))
    library(methods) ## because Rscript as of R 2.7.0 doesn't load methods
    library(nws)
    library(snow)

    sinkWorkerOutput(outfile)
    master <- makeNWSmaster()
    sendData(master, "ping")
    cat("starting NWS worker\n")
    slaveLoop(master)
})

	[[alternative HTML version deleted]]

