Can you please upgrade R to R-3.0.2 and use the parallel package?
And can you please explain why you want to start the workers manually?
I'd be happy to look into the details if you can reproduce the problem
with a recent version of R and the parallel package.
Best,
Uwe Ligges
On 28.09.2013 03:20, Jeffrey Flint wrote:> 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]]
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>