R/MetadataSchema.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


#' MetadataSchema Class
#'
#' 
#'
#' @field created A timestamp indicating when this Metadata was created in the metadata schema store.
#' @field internalUsername The name of the Internal User, if any, who owns this schema.
#' @field lastUpdated A timestamp indicating when this Metadata was last updated in the metadata schema store.
#' @field owner The API user who owns this Schema.
#' @field schema A JSON Schema
#' @field uuid The UUID for this Schema.
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
MetadataSchema <- R6::R6Class(
  'MetadataSchema',
  public = list(
    `created` = NULL,
    `internalUsername` = NULL,
    `lastUpdated` = NULL,
    `owner` = NULL,
    `schema` = NULL,
    `uuid` = NULL,
    initialize = function(`created`, `internalUsername`, `lastUpdated`, `owner`, `schema`, `uuid`){
      if (!missing(`created`)) {
        stopifnot(is.character(`created`), length(`created`) == 1)
        self$`created` <- `created`
      }
      if (!missing(`internalUsername`)) {
        stopifnot(is.character(`internalUsername`), length(`internalUsername`) == 1)
        self$`internalUsername` <- `internalUsername`
      }
      if (!missing(`lastUpdated`)) {
        stopifnot(is.character(`lastUpdated`), length(`lastUpdated`) == 1)
        self$`lastUpdated` <- `lastUpdated`
      }
      if (!missing(`owner`)) {
        stopifnot(is.character(`owner`), length(`owner`) == 1)
        self$`owner` <- `owner`
      }
      if (!missing(`schema`)) {
        stopifnot(is.character(`schema`), length(`schema`) == 1)
        self$`schema` <- `schema`
      }
      if (!missing(`uuid`)) {
        stopifnot(is.character(`uuid`), length(`uuid`) == 1)
        self$`uuid` <- `uuid`
      }
    },
    asJSON = function() {
      self$toJSON()
    },
    toJSON = function() {
      MetadataSchemaObject <- list()
      if (!is.null(self$`created`)) {
        MetadataSchemaObject[['created']] <- self$`created`
      }
      else {
        MetadataSchemaObject[['created']] <- NULL
      }
      if (!is.null(self$`internalUsername`)) {
        MetadataSchemaObject[['internalUsername']] <- self$`internalUsername`
      }
      else {
        MetadataSchemaObject[['internalUsername']] <- NULL
      }
      if (!is.null(self$`lastUpdated`)) {
        MetadataSchemaObject[['lastUpdated']] <- self$`lastUpdated`
      }
      else {
        MetadataSchemaObject[['lastUpdated']] <- NULL
      }
      if (!is.null(self$`owner`)) {
        MetadataSchemaObject[['owner']] <- self$`owner`
      }
      else {
        MetadataSchemaObject[['owner']] <- NULL
      }
      if (!is.null(self$`schema`)) {
        MetadataSchemaObject[['schema']] <- self$`schema`
      }
      else {
        MetadataSchemaObject[['schema']] <- NULL
      }
      if (!is.null(self$`uuid`)) {
        MetadataSchemaObject[['uuid']] <- self$`uuid`
      }
      else {
        MetadataSchemaObject[['uuid']] <- NULL
      }

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

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

      if (!is.null(MetadataSchemaObject$`created`)) {
        self$`created` <- MetadataSchemaObject$`created`
      }
      if (!is.null(MetadataSchemaObject$`internalUsername`)) {
        self$`internalUsername` <- MetadataSchemaObject$`internalUsername`
      }
      if (!is.null(MetadataSchemaObject$`lastUpdated`)) {
        self$`lastUpdated` <- MetadataSchemaObject$`lastUpdated`
      }
      if (!is.null(MetadataSchemaObject$`owner`)) {
        self$`owner` <- MetadataSchemaObject$`owner`
      }
      if (!is.null(MetadataSchemaObject$`schema`)) {
        self$`schema` <- MetadataSchemaObject$`schema`
      }
      if (!is.null(MetadataSchemaObject$`uuid`)) {
        self$`uuid` <- MetadataSchemaObject$`uuid`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "created": %s,
           "internalUsername": %s,
           "lastUpdated": %s,
           "owner": %s,
           "schema": %s,
           "uuid": %s
        }',
        ifelse( is.null(self$`created`),"null",paste0(c('"', self$`created`, '"'))),
        ifelse( is.null(self$`internalUsername`),"null",paste0(c('"', self$`internalUsername`, '"'))),
        ifelse( is.null(self$`lastUpdated`),"null",paste0(c('"', self$`lastUpdated`, '"'))),
        ifelse( is.null(self$`owner`),"null",paste0(c('"', self$`owner`, '"'))),
        ifelse( is.null(self$`schema`),"null",paste0(c('"', self$`schema`, '"'))),
        ifelse( is.null(self$`uuid`),"null",paste0(c('"', self$`uuid`, '"')))
      )
    },
    fromJSONString = function(MetadataSchemaJson) {
      MetadataSchemaObject <- jsonlite::fromJSON(MetadataSchemaJson)
      self::fromJSON(MetadataSchemaObject)

    }
  )
)