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