# NOT RUN {
# We don't run this, because it write to the cache directory
# }
# NOT RUN {
db <- tempfile()
q <- ensure_queue("jobs", db = db)
q
list_queues(db)
# Publish two messages
publish(q, title = "First message", message = "Hello world!")
publish(q, title = "Second message", message = "Hello again!")
list_messages(q)
# Consume one
msg <- try_consume(q)
msg
ack(msg)
list_messages(q)
msg2 <- try_consume(q)
nack(msg2)
list_messages(q)
# No more messages
try_consume(q)
# }
Run the code above in your browser using DataLab