#' @export
print.iam_alias <- function(x, ...) {
if (!is.null(x[["AliasName"]])) {
cat("AliasName:", x[["AliasName"]], "\n")
}
invisible(x)
}
#' @export
print.iam_group <- function(x, ...) {
if (!is.null(x[["GroupId"]])) {
cat("GroupId: ", x[["GroupId"]], "\n")
}
if (!is.null(x[["GroupName"]])) {
cat("GroupName: ", paste0(x[["Path"]], x[["GroupName"]]), "\n")
}
if (!is.null(x[["Arn"]])) {
cat("Arn: ", x[["Arn"]], "\n")
}
if (!is.null(x[["CreateDate"]])) {
cat("CreateDate:", x[["CreateDate"]], "\n")
}
invisible(x)
}
#' @export
print.iam_key <- function(x, ...) {
if (!is.null(x[["AccessKeyId"]])) {
cat("AccessKeyId:", x[["AccessKeyId"]], "\n")
}
if (!is.null(x[["CreateDate"]])) {
cat("CreateDate: ", x[["CreateDate"]], "\n")
}
if (!is.null(x[["Status"]])) {
cat("Status: ", x[["Status"]], "\n")
}
if (!is.null(x[["UserName"]])) {
cat("UserName: ", x[["UserName"]], "\n")
}
invisible(x)
}
#' @export
print.iam_policy <- function(x, ...) {
if (!is.null(x[["PolicyName"]])) {
cat("PolicyName:", x[["PolicyName"]], "\n")
}
if (!is.null(x[["RoleName"]])) {
cat("RoleName: ", x[["RoleName"]], "\n")
}
if (!is.null(x[["UserName"]])) {
cat("UserName: ", x[["UserName"]], "\n")
}
if (!is.null(x[["GroupName"]])) {
cat("GroupName: ", x[["GroupName"]], "\n")
}
if (!is.null(x[["PolicyDocument"]])) {
cat("policy: ", x[["PolicyDocument"]], "\n")
}
invisible(x)
}
#' @export
print.iam_instance_profile <- function(x, ...) {
if (!is.null(x[["InstanceProfileName"]])) {
cat("InstanceProfileName: ", paste0(x[["Path"]], x[["InstanceProfileName"]]), "\n")
}
if (!is.null(x[["InstanceProfileId"]])) {
cat("InstanceProfileId: ", x[["InstanceProfileId"]], "\n")
}
if (!is.null(x[["Arn"]])) {
cat("Arn: ", x[["Arn"]], "\n")
}
if (!is.null(x[["CreateDate"]])) {
cat("CreateDate: ", x[["CreateDate"]], "\n")
}
if (!is.null(x[["Roles"]])) {
cat("Roles:\n")
print(x[["Roles"]])
}
invisible(x)
}
#' @export
print.iam_role <- function(x, ...) {
if (!is.null(x[["RoleName"]])) {
cat("RoleName: ", paste0(x[["Path"]], x[["RoleName"]]), "\n")
}
if (!is.null(x[["RoleId"]])) {
cat("RoleId: ", x[["RoleId"]], "\n")
}
if (!is.null(x[["Arn"]])) {
cat("Arn: ", x[["Arn"]], "\n")
}
if (!is.null(x[["CreateDate"]])) {
cat("CreateDate:", x[["CreateDate"]], "\n")
}
if (!is.null(x[["AssumeRolePolicyDocument"]])) {
cat("policy: ", x[["AssumeRolePolicyDocument"]], "\n")
}
invisible(x)
}
#' @export
print.iam_user <- function(x, ...) {
if (!is.null(x[["UserName"]])) {
cat("UserName: ", paste0(x[["Path"]], x[["UserName"]]), "\n")
}
if (!is.null(x[["UserId"]])) {
cat("UserId: ", x[["UserId"]], "\n")
}
if (!is.null(x[["Arn"]])) {
cat("Arn: ", x[["Arn"]], "\n")
}
if (!is.null(x[["CreateDate"]])) {
cat("CreateDate:", x[["CreateDate"]], "\n")
}
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.