# NOT RUN {
s1 <- socket("bus", listen = "inproc://nanonext")
s2 <- socket("bus", dial = "inproc://nanonext")
send_vec(s1, c(1.1, 2.2, 3.3))
res <- recv_vec(s2, "double")
res
send_vec(s1, "example test", echo = FALSE)
recv_vec(s2, "character", keep.raw = FALSE)
close(s1)
close(s2)
# }
Run the code above in your browser using DataLab