## Not run:
# # verify email address
# verify_identity("me@example.com")
#
# # if email verified, can be used to send a message
# a <- get_verification_attrs("me@example.com")
# if (a[[1]]$VerificationStatus == "Success") {
# # simple plain-text email
# send_email("Test Email Body", subject = "Test Email",
# from = "me@example.com", to = "recipient@example.com")
#
# # html and plain text versions
# send_email(message = "Plain text body",
# html = "<div><p style='font-weight=bold;'>HTML text body</p></div>",
# subject = "Test Email",
# from = "me@example.com", to = "recipient@example.com")
# }
# ## End(Not run)
## Not run:
# get_quota()
# get_statistics()
# ## End(Not run)
Run the code above in your browser using DataLab