Displaying 1 result from an estimated 1 matches for "inconn".
Did you mean:
inconnu
2005 Apr 14
0
Finding an available port for server socket
...volved 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 <- socketConnection(port = inPort, server = T, blocking = T)
try(source(inConn, echo = T, prompt.echo = "> ",
max.deparse.length = 50000))
close(inConn)
}
}
sendSocket <- function(strings, host, port){
## open a blocking client socket, put strings on i...