# NOT RUN {
s1 <- socket("pair", listen = "inproc://nanonext")
s2 <- socket("pair", dial = "inproc://nanonext")
send_vec_aio(s1, c(1.1, 2.2), c(3.3, 4.4), timeout = 100)
res <- recv_vec_aio(s2, "double", 2L, timeout = 100)
res
send_vec_aio(s1, "message 1", "message 2", timeout = 100)
recv_vec_aio(s2, "character", 2L, timeout = 100, keep.raw = FALSE)
close(s1)
close(s2)
# }
Run the code above in your browser using DataLab