# NOT RUN {
s1 <- socket("pair", listen = "inproc://nanonext")
aio <- send_aio(s1, "test", timeout = 100)
while (unresolved(aio)) {
# do stuff before checking resolution again
cat("unresolved\n")
s2 <- socket("pair", dial = "inproc://nanonext")
Sys.sleep(0.01)
}
unresolved(aio)
close(s1)
close(s2)
# }
Run the code above in your browser using DataLab