## Not run:
# ### Using request-reply pattern.
#
# ### At the server, run next in background or the other windows.
# library(pbdZMQ, quietly = TRUE)
#
# context <- zmq.ctx.new()
# responder <- zmq.socket(context, .pbd_env$ZMQ.ST$REP)
# zmq.bind(responder, "tcp://*:5555")
# zmq.close(responder)
# zmq.ctx.destroy(context)
#
#
# ### At a client, run next in foreground.
# library(pbdZMQ, quietly = TRUE)
#
# context <- zmq.ctx.new()
# requester <- zmq.socket(context, .pbd_env$ZMQ.ST$REQ)
# zmq.connect(requester, "tcp://localhost:5555")
# zmq.close(requester)
# zmq.ctx.destroy(context)
# ## End(Not run)
Run the code above in your browser using DataLab