## wait up to 10 minutes for a socket connection or die
alarmc(600)
conn <- socketConnection(port = 40001, server = T, blocking = T)
alarmc(0) ## turn off the timer
incomingText <- readLines(conn)
close(conn)
Run the code above in your browser using DataLab