# NOT RUN {
pub <- socket("pub", dial = "inproc://nanonext")
send_vec_aio(pub, "message 1", "message 2", timeout = 100)
out <- send_vec_aio(pub, "message 1", "message 2", timeout = 100)
out
close(pub)
# }
Run the code above in your browser using DataLab