mq <- interprocess::queue()
print(mq)
mq$send(paste('my favorite number is', floor(runif(1) * 100)))
mq$count()
mq$receive()
mq$receive(timeout_ms = 0)
mq$send('The Matrix has you...')
with(mq, paste('got message:', .), 'no messages', timeout_ms = 0)
with(mq, paste('got message:', .), 'no messages', timeout_ms = 0)
mq$remove()
Run the code above in your browser using DataLab