## Not run:
# ### Using request-reply pattern.
#
# ### At the server, run next in background or the other window.
# library(pbdZMQ, quietly = TRUE)
#
# context <- zmq.ctx.new()
# responder <- zmq.socket(context, .pbd_env$ZMQ.ST$REP)
# zmq.bind(responder, "tcp://*:5555")
# buf <- zmq.msg.recv(responder)
# set.seed(1234)
# ret <- rnorm(5)
# print(ret)
# zmq.msg.send(ret, responder)
# 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.msg.send(NULL, requester)
# ret <- zmq.msg.recv(requester)
# print(ret)
# zmq.close(requester)
# zmq.ctx.destroy(context)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace