sur <- socket("surveyor", listen = "inproc://nanonext")
res <- socket("respondent", dial = "inproc://nanonext")
survey_time(sur, 1000)
send(sur, "reply to this survey")
aio <- recv_aio(sur)
recv(res)
s <- send_aio(res, "replied")
call_aio(aio)$data
close(sur)
close(res)
Run the code above in your browser using DataLab