# NOT RUN {
pub <- socket("pub", listen = "inproc://nanonext")
sub <- socket("sub", dial = "inproc://nanonext")
subscribe(sub, NULL)
send_vec(pub, c("examples", "this is an example"))
recv_vec(sub, "character")
unsubscribe(sub, NULL)
send_vec(pub, c("examples", "this example will not be received"))
recv_vec(sub, "character")
close(pub)
close(sub)
# }
Run the code above in your browser using DataLab