R/print.R

In aws.iam: AWS IAM Client Package

#' @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)
}