#' @title describe_gateways
#' @description Describe Network Gateways
#' @template gateway
#' @template filter
#' @template dots
#' @return A list.
#' @references
#' <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_DescribeInternetGateways.html>
#' @seealso [create_gateway()], [attach_gateway()]
#' @keywords security
#' @export
describe_gateways <-
function(
gateway = NULL,
filter = NULL,
...
) {
query <- list(Action = "DescribeInternetGateways")
if (!is.null(gateway)) {
if (inherits(gateway, "ec2_internet_gateway")) {
gateway <- list(get_instanceid(gateway))
} else if (is.character(gateway)) {
gateway <- as.list(get_gatewayid(gateway))
} else {
gateway <- lapply(gateway, get_gatewayid)
}
names(gateway) <- paste0("InternetGatewayId.", 1:length(gateway))
query <- c(query, gateway)
}
if (!is.null(filter)) {
query <- c(query, .makelist(filter, type = "Filter"))
}
r <- ec2HTTP(query = query, ...)
return(structure(r$customerGatewaySet, requestId = r$requestId[[1]]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.