R/UUIDResolution.r

In deardooley/agave-rlang-sdk: Agave Platform client SDK for R

# Agave Platform Science API
#
# Power your digital lab and reduce the time from theory to discovery using the Agave Science-as-a-Service API Platform. Agave provides hosted services that allow researchers to manage data, conduct experiments, and publish and share results from anywhere at any time.
#
# Agave Platform version: 2.2.14
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' UUIDResolution Class
#'
#' Resource to which a tag has been associated
#'
#' @field uuid uuid created/requested
#' @field type the resource type represented by this uuid
#' @field representation the full object representation for this uuid
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
UUIDResolution <- R6::R6Class(
  'UUIDResolution',
  public = list(
    `uuid` = NULL,
    `type` = NULL,
    `representation` = NULL,
    initialize = function(`uuid`, `type`, `representation`){
      if (!missing(`uuid`)) {
        stopifnot(is.character(`uuid`), length(`uuid`) == 1)
        self$`uuid` <- `uuid`
      }
      if (!missing(`type`)) {
        stopifnot(is.character(`type`), length(`type`) == 1)
        self$`type` <- `type`
      }
      if (!missing(`representation`)) {
        stopifnot(R6::is.R6(`representation`))
        self$`representation` <- `representation`
      }
    },
    asJSON = function() {
      self$toJSON()
    },
    toJSON = function() {
      UUIDResolutionObject <- list()
      if (!is.null(self$`uuid`)) {
        UUIDResolutionObject[['uuid']] <- self$`uuid`
      }
      else {
        UUIDResolutionObject[['uuid']] <- NULL
      }
      if (!is.null(self$`type`)) {
        UUIDResolutionObject[['type']] <- self$`type`
      }
      else {
        UUIDResolutionObject[['type']] <- NULL
      }
      if (!is.null(self$`representation`)) {
        UUIDResolutionObject[['representation']] <- self$`representation`$toJSON()
      }
      else {
        UUIDResolutionObject[['representation']] <- NULL
      }

      UUIDResolutionObject
    },
    fromJSON = function(UUIDResolutionObject) {
      if (is.character(UUIDResolutionObject)) {
        UUIDResolutionObject <- jsonlite::fromJSON(UUIDResolutionJson)
      }

      if ("result" %in% names(UUIDResolutionObject)) {
        UUIDResolutionObject <- UUIDResolutionObject$result
      }

      if (!is.null(UUIDResolutionObject$`uuid`)) {
        self$`uuid` <- UUIDResolutionObject$`uuid`
      }
      if (!is.null(UUIDResolutionObject$`type`)) {
        self$`type` <- UUIDResolutionObject$`type`
      }
      if (!is.null(UUIDResolutionObject$`representation`)) {
        representationObject <- TODO_OBJECT_MAPPING$new()
        representationObject$fromJSON(jsonlite::toJSON(UUIDResolutionObject$representation, auto_unbox = TRUE))
        self$`representation` <- representationObject
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "uuid": %s,
           "type": %s,
           "representation": %s
        }',
        ifelse( is.null(self$`uuid`),"null",paste0(c('"', self$`uuid`, '"'))),
        ifelse( is.null(self$`type`),"null",paste0(c('"', self$`type`, '"'))),
        self$`representation`$toJSON()
      )
    },
    fromJSONString = function(UUIDResolutionJson) {
      UUIDResolutionObject <- jsonlite::fromJSON(UUIDResolutionJson)
      self::fromJSON(UUIDResolutionObject)

    }
  )
)