Displaying 1 result from an estimated 1 matches for "slavestart".
2005 Apr 14
0
Finding an available port for server socket
I've written a Smalltalk application which starts R on another machine and
then communicates with it via sockets. The functions involved are:
slaveStart <- function(masterHost, masterPort){
inPort <- availablePort()
sendSocket(as.character(inPort), masterHost, masterPort)
socketSlave(inPort)
}
socketSlave <- function(inPort){
## listens on inPort.
on.exit(closeAllConnections(), add = T)
repeat {
inConn <- socketConn...