Dealing with timeouts

[ralmond]

Thanks for making this sample code available. However, it reproduces a problem I've been having and am looking for a solution to.
When I run the code, but don't connect a client within 60 seconds I get the following error message.

> server()

Listening...
Error in socketConnection(host = "localhost", port = 6011, blocking = TRUE,  : 
  cannot open the connection
In addition: Warning message:
In socketConnection(host = "localhost", port = 6011, blocking = TRUE,  :
  problem in listening on this socket
> 

I'm pretty sure that the problem here is a timeout, but I'm looking for an example of a server that will robustly wait for the connection and not just bug out after a mere minute.

Do you have experience with this?

[corynissen]

The default timeout is set by getOption("timeout"). It looks like you should be able to set it to whatever you'd like:

con <- socketConnection(host="localhost", port = 6011, blocking=TRUE, server=TRUE, 
                        open="r+", timeout = 123456789)

[ralmond]

I was hoping for a more robust example that after a timeout would check for a shutdown flag and then reopen the connection.

I suppose could set this up using try, but the exceptions that socketConnection throws are not well documented.