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