R/statistics.R

Defines functions get_quota get_statistics

Documented in get_quota get_statistics

#' @rdname sendemail
#' @examples 
#' \dontrun{
#' get_quota()
#' get_statistics()
#' } 
#' @export
get_quota <- function(...) {
    query <- list(Action = "GetSendQuota")
    r <- sesPOST(query = query, ...)
    structure(r[["GetSendQuotaResponse"]][["GetSendQuotaResult"]],
              RequestId = r[["GetSendQuotaResponse"]][["ResponseMetadata"]][["RequestId"]])
}

#' @rdname sendemail
#' @export
get_statistics <- function(...) {
    query <- list(Action = "GetSendStatistics")
    r <- sesPOST(query = query, ...)
    structure(r[["GetSendStatisticsResponse"]][["GetSendStatisticsResult"]][["SendDataPoints"]],
              RequestId = r[["GetSendStatisticsResponse"]][["ResponseMetadata"]][["RequestId"]])
}

Try the aws.ses package in your browser

Any scripts or data that you put into this service are public.

aws.ses documentation built on May 2, 2019, 3:43 p.m.