s <- socket(listen = "inproc://nanopipe")
cv <- cv()
pipe_notify(s, cv, add = TRUE, remove = TRUE, flag = TRUE)
cv_value(cv)
s1 <- socket(dial = "inproc://nanopipe")
cv_value(cv)
reap(s1)
cv_value(cv)
pipe_notify(s, NULL, add = TRUE, remove = TRUE)
s1 <- socket(dial = "inproc://nanopipe")
cv_value(cv)
reap(s1)
(wait(cv))
close(s)
Run the code above in your browser using DataLab