inst/examples/pong.R

In nws: R functions for NetWorkSpaces and Sleigh

library(nws)
host = 'localhost'
port = 8765
wsname = 'ping-pong'
loops = 10

nws = netWorkSpace(wsname, host, port, create=FALSE)
game = nwsFetch(nws, 'game')
nwsStore(nws, 'game', game + 1)
pong = paste('pong_', game, sep="")

cat('Starting a ping-pong game ', game, '\n')
for (i in 1:loops) {
  nwsStore(nws, 'ping', pong)
  reply = nwsFetch(nws, pong)
  cat(reply, '\n')
}

nwsDeleteVar(nws, pong)