Nothing
check_truncation <- function(truncation) {
if (isTRUE(truncation)) {
message("Response is truncated")
}
}
get_aliasname <- function(x) {
if (inherits(x, "iam_alias")) {
x[["AliasName"]]
} else {
x
}
}
get_groupname <- function(x) {
if (inherits(x, "iam_group") | inherits(x, "iam_policy")) {
x[["GroupName"]]
} else {
x
}
}
get_keyid <- function(x) {
if (inherits(x, "iam_key")) {
x[["AccessKeyId"]]
} else {
x
}
}
get_username <- function(x) {
if (inherits(x, "iam_user") | inherits(x, "iam_policy")) {
x[["UserName"]]
} else {
x
}
}
get_policyname <- function(x) {
if (inherits(x, "iam_policy")) {
x[["PolicyName"]]
} else {
x
}
}
get_profilename <- function(x) {
if (inherits(x, "iam_instance_profile")) {
x[["InstanceProfileName"]]
} else {
x
}
}
get_rolearn <- function(x) {
if (inherits(x, "iam_role")) {
x[["Arn"]]
} else {
x
}
}
get_rolename <- function(x) {
if (inherits(x, "iam_role") | inherits(x, "iam_policy")) {
x[["RoleName"]]
} else {
x
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.