# NOT RUN {
pub <- socket("pub", dial = "inproc://nanonext")
send_aio(pub, data.frame(a = 1, b = 2), data.frame(c = 3, d = 4), timeout = 100)
out <- send_aio(pub, data.frame(a = 1, b = 2), data.frame(c = 3, d = 4), timeout = 100)
out
close(pub)
# }
Run the code above in your browser using DataLab