R help - Apr 2010 - read.socket and timeout

I have an external process that is listening to and responding on a
port.  This is working fine.  If the external service is not running,
though, read.socket does not return and I do not see a way to
interrupt it.  Is there a general way to deal with this situation to
have a timeout or of testing a socket connection?

Thanks,
Sean