# NOT RUN {
pub <- socket("pub", dial = "inproc://nanonext")
aio <- send_aio(pub, data.frame(a = 1, b = 2), timeout = 100)
aio
call_aio(aio)$result
aio <- send_aio(pub, "example message", mode = "raw", timeout = 100)
call_aio(aio)$result
close(pub)
# }
Run the code above in your browser using DataLab