R/support_interfaces.R

Defines functions resolve_case_output resolve_case_input refresh_trusted_advisor_check_output refresh_trusted_advisor_check_input describe_trusted_advisor_checks_output describe_trusted_advisor_checks_input describe_trusted_advisor_check_summaries_output describe_trusted_advisor_check_summaries_input describe_trusted_advisor_check_result_output describe_trusted_advisor_check_result_input describe_trusted_advisor_check_refresh_statuses_output describe_trusted_advisor_check_refresh_statuses_input describe_severity_levels_output describe_severity_levels_input describe_services_output describe_services_input describe_communications_output describe_communications_input describe_cases_output describe_cases_input describe_attachment_output describe_attachment_input create_case_output create_case_input add_communication_to_case_output add_communication_to_case_input add_attachments_to_set_output add_attachments_to_set_input

# This file is generated by make.paws. Please do not edit here.
#' @importFrom paws.common populate
#' @include support_service.R
NULL

.support$add_attachments_to_set_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(attachmentSetId = structure(logical(0), tags = list(type = "string")), attachments = structure(list(structure(list(fileName = structure(logical(0), tags = list(type = "string")), data = structure(logical(0), tags = list(type = "blob"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$add_attachments_to_set_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(attachmentSetId = structure(logical(0), tags = list(type = "string")), expiryTime = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$add_communication_to_case_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(caseId = structure(logical(0), tags = list(type = "string")), communicationBody = structure(logical(0), tags = list(type = "string")), ccEmailAddresses = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), attachmentSetId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$add_communication_to_case_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(result = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$create_case_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(subject = structure(logical(0), tags = list(type = "string")), serviceCode = structure(logical(0), tags = list(type = "string")), severityCode = structure(logical(0), tags = list(type = "string")), categoryCode = structure(logical(0), tags = list(type = "string")), communicationBody = structure(logical(0), tags = list(type = "string")), ccEmailAddresses = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), language = structure(logical(0), tags = list(type = "string")), issueType = structure(logical(0), tags = list(type = "string")), attachmentSetId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$create_case_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(caseId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_attachment_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(attachmentId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_attachment_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(attachment = structure(list(fileName = structure(logical(0), tags = list(type = "string")), data = structure(logical(0), tags = list(type = "blob"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_cases_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(caseIdList = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), displayId = structure(logical(0), tags = list(type = "string")), afterTime = structure(logical(0), tags = list(type = "string")), beforeTime = structure(logical(0), tags = list(type = "string")), includeResolvedCases = structure(logical(0), tags = list(type = "boolean")), nextToken = structure(logical(0), tags = list(type = "string")), maxResults = structure(logical(0), tags = list(type = "integer")), language = structure(logical(0), tags = list(type = "string")), includeCommunications = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_cases_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(cases = structure(list(structure(list(caseId = structure(logical(0), tags = list(type = "string")), displayId = structure(logical(0), tags = list(type = "string")), subject = structure(logical(0), tags = list(type = "string")), status = structure(logical(0), tags = list(type = "string")), serviceCode = structure(logical(0), tags = list(type = "string")), categoryCode = structure(logical(0), tags = list(type = "string")), severityCode = structure(logical(0), tags = list(type = "string")), submittedBy = structure(logical(0), tags = list(type = "string")), timeCreated = structure(logical(0), tags = list(type = "string")), recentCommunications = structure(list(communications = structure(list(structure(list(caseId = structure(logical(0), tags = list(type = "string")), body = structure(logical(0), tags = list(type = "string")), submittedBy = structure(logical(0), tags = list(type = "string")), timeCreated = structure(logical(0), tags = list(type = "string")), attachmentSet = structure(list(structure(list(attachmentId = structure(logical(0), tags = list(type = "string")), fileName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "list")), nextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure")), ccEmailAddresses = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), language = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), nextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_communications_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(caseId = structure(logical(0), tags = list(type = "string")), beforeTime = structure(logical(0), tags = list(type = "string")), afterTime = structure(logical(0), tags = list(type = "string")), nextToken = structure(logical(0), tags = list(type = "string")), maxResults = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_communications_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(communications = structure(list(structure(list(caseId = structure(logical(0), tags = list(type = "string")), body = structure(logical(0), tags = list(type = "string")), submittedBy = structure(logical(0), tags = list(type = "string")), timeCreated = structure(logical(0), tags = list(type = "string")), attachmentSet = structure(list(structure(list(attachmentId = structure(logical(0), tags = list(type = "string")), fileName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "list")), nextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_services_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(serviceCodeList = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), language = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_services_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(services = structure(list(structure(list(code = structure(logical(0), tags = list(type = "string")), name = structure(logical(0), tags = list(type = "string")), categories = structure(list(structure(list(code = structure(logical(0), tags = list(type = "string")), name = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_severity_levels_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(language = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_severity_levels_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(severityLevels = structure(list(structure(list(code = structure(logical(0), tags = list(type = "string")), name = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_refresh_statuses_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(checkIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_refresh_statuses_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(statuses = structure(list(structure(list(checkId = structure(logical(0), tags = list(type = "string")), status = structure(logical(0), tags = list(type = "string")), millisUntilNextRefreshable = structure(logical(0), tags = list(type = "long"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_result_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(checkId = structure(logical(0), tags = list(type = "string")), language = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_result_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(result = structure(list(checkId = structure(logical(0), tags = list(type = "string")), timestamp = structure(logical(0), tags = list(type = "string")), status = structure(logical(0), tags = list(type = "string")), resourcesSummary = structure(list(resourcesProcessed = structure(logical(0), tags = list(type = "long")), resourcesFlagged = structure(logical(0), tags = list(type = "long")), resourcesIgnored = structure(logical(0), tags = list(type = "long")), resourcesSuppressed = structure(logical(0), tags = list(type = "long"))), tags = list(type = "structure")), categorySpecificSummary = structure(list(costOptimizing = structure(list(estimatedMonthlySavings = structure(logical(0), tags = list(type = "double")), estimatedPercentMonthlySavings = structure(logical(0), tags = list(type = "double"))), tags = list(type = "structure"))), tags = list(type = "structure")), flaggedResources = structure(list(structure(list(status = structure(logical(0), tags = list(type = "string")), region = structure(logical(0), tags = list(type = "string")), resourceId = structure(logical(0), tags = list(type = "string")), isSuppressed = structure(logical(0), tags = list(type = "boolean")), metadata = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_summaries_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(checkIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_check_summaries_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(summaries = structure(list(structure(list(checkId = structure(logical(0), tags = list(type = "string")), timestamp = structure(logical(0), tags = list(type = "string")), status = structure(logical(0), tags = list(type = "string")), hasFlaggedResources = structure(logical(0), tags = list(type = "boolean")), resourcesSummary = structure(list(resourcesProcessed = structure(logical(0), tags = list(type = "long")), resourcesFlagged = structure(logical(0), tags = list(type = "long")), resourcesIgnored = structure(logical(0), tags = list(type = "long")), resourcesSuppressed = structure(logical(0), tags = list(type = "long"))), tags = list(type = "structure")), categorySpecificSummary = structure(list(costOptimizing = structure(list(estimatedMonthlySavings = structure(logical(0), tags = list(type = "double")), estimatedPercentMonthlySavings = structure(logical(0), tags = list(type = "double"))), tags = list(type = "structure"))), tags = list(type = "structure"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_checks_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(language = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$describe_trusted_advisor_checks_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(checks = structure(list(structure(list(id = structure(logical(0), tags = list(type = "string")), name = structure(logical(0), tags = list(type = "string")), description = structure(logical(0), tags = list(type = "string")), category = structure(logical(0), tags = list(type = "string")), metadata = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$refresh_trusted_advisor_check_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(checkId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$refresh_trusted_advisor_check_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(status = structure(list(checkId = structure(logical(0), tags = list(type = "string")), status = structure(logical(0), tags = list(type = "string")), millisUntilNextRefreshable = structure(logical(0), tags = list(type = "long"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$resolve_case_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(caseId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.support$resolve_case_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(initialCaseStatus = structure(logical(0), tags = list(type = "string")), finalCaseStatus = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

Try the paws.management package in your browser

Any scripts or data that you put into this service are public.

paws.management documentation built on Aug. 23, 2021, 9:11 a.m.