Nothing
.sso <- list()
.sso$operations <- list()
.sso$metadata <- list(
service_name = "sso",
endpoints = list("*" = list(endpoint = "portal.sso.{region}.amazonaws.com", global = FALSE), "cn-*" = list(endpoint = "portal.sso.{region}.amazonaws.com.cn", global = FALSE), "us-iso-*" = list(endpoint = "portal.sso.{region}.c2s.ic.gov", global = FALSE), "us-isob-*" = list(endpoint = "portal.sso.{region}.sc2s.sgov.gov", global = FALSE)),
service_id = "SSO",
api_version = "2019-06-10",
signing_name = "awsssoportal",
json_version = "1.1",
target_prefix = ""
)
.sso$service <- function(config = list()) {
handlers <- new_handlers("restjson", "v4")
new_service(.sso$metadata, handlers, config)
}
.sso$get_role_credentials_input <- function(...) {
args <- c(as.list(environment()), list(...))
shape <- structure(list(roleName = structure(logical(0), tags = list(location = "querystring", locationName = "role_name", type = "string")), accountId = structure(logical(0), tags = list(location = "querystring", locationName = "account_id", type = "string")), accessToken = structure(logical(0), tags = list(location = "header", locationName = "x-amz-sso_bearer_token", type = "string", sensitive = TRUE))), tags = list(type = "structure"))
return(populate(args, shape))
}
.sso$get_role_credentials_output <- function(...) {
args <- c(as.list(environment()), list(...))
shape <- structure(list(roleCredentials = structure(list(accessKeyId = structure(logical(0), tags = list(type = "string")), secretAccessKey = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), sessionToken = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), expiration = structure(logical(0), tags = list(type = "long"))), tags = list(type = "structure"))), tags = list(type = "structure"))
return(populate(args, shape))
}
sso_get_role_credentials <- function(roleName, accountId, accessToken) {
op <- new_operation(
name = "GetRoleCredentials",
http_method = "GET",
http_path = "/federation/credentials",
paginator = list()
)
input <- .sso$get_role_credentials_input(roleName = roleName, accountId = accountId, accessToken = accessToken)
output <- .sso$get_role_credentials_output()
config <- get_config()
svc <- .sso$service(config)
request <- new_request(svc, op, input, output)
response <- send_request(request)
return(response)
}
.sso$operations$get_role_credentials <- sso_get_role_credentials
sso <- function(config = list()) {
svc <- .sso$operations
svc <- set_config(svc, config)
return(svc)
}
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.