## Not run:
# # get
# get_id_notifiaction("[email protected]")
#
# # set
# if (require("aws.sns")) {
# top <- create_topic("ses_email_bounce")
# set_id_notifiaction("[email protected]", "Bounce", top)
# get_id_notifiaction("[email protected]")
#
# # cleanup
# delete_topic(top)
# }
# ## End(Not run)
Run the code above in your browser using DataLab