# list current queues
list_queues()
# create a queue
queue <- create_queue("ExampleQueue")
get_queue_url("ExampleQueue")
# send message to queue
send_msg("ExampleQueue", "This is a test message")
# receive a message
(m <- receive_msg("ExampleQueue", timeout = 0))
# delete a message from queue
delete_msg("ExampleQueue", m$ReceiptHandle[1])
# delete queue
delete_queue("ExampleQueue")
Run the code above in your browser using DataLab