# NOT RUN {
req <- socket("req", listen = "inproc://nanonext")
rep <- socket("rep", dial = "inproc://nanonext")
ctxq <- context(req)
ctxp <- context(rep)
send_ctx(ctxq, data.frame(a = 1, b = 2), timeout = 100)
recv_ctx(ctxp, timeout = 100)
send_ctx(ctxq, c(1.1, 2.2, 3.3), mode = "raw", timeout = 100)
recv_ctx(ctxp, mode = "double", timeout = 100)
close(req)
close(rep)
# }
Run the code above in your browser using DataLab