R/VersionModelModel.r

In riteshkarvaloc/dkubeR:

# Dkube api server
#
# No description provided (generated by Swagger Codegen https://github.com/swagger-api/swagger-codegen)
#
# OpenAPI spec version: 2.2.1.11
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' VersionModelModel Class
#'
#' @field releasedTimestamp 
#' @field publishedTimestamp 
#' @field publishedName 
#' @field publishedDescription 
#' @field reason 
#' @field stage 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
VersionModelModel <- R6::R6Class(
  'VersionModelModel',
  public = list(
    `releasedTimestamp` = NULL,
    `publishedTimestamp` = NULL,
    `publishedName` = NULL,
    `publishedDescription` = NULL,
    `reason` = NULL,
    `stage` = NULL,
    initialize = function(`releasedTimestamp`, `publishedTimestamp`, `publishedName`, `publishedDescription`, `reason`, `stage`){
      if (!missing(`releasedTimestamp`)) {
        stopifnot(R6::is.R6(`releasedTimestamp`))
        self$`releasedTimestamp` <- `releasedTimestamp`
      }
      if (!missing(`publishedTimestamp`)) {
        stopifnot(R6::is.R6(`publishedTimestamp`))
        self$`publishedTimestamp` <- `publishedTimestamp`
      }
      if (!missing(`publishedName`)) {
        stopifnot(is.character(`publishedName`), length(`publishedName`) == 1)
        self$`publishedName` <- `publishedName`
      }
      if (!missing(`publishedDescription`)) {
        stopifnot(is.character(`publishedDescription`), length(`publishedDescription`) == 1)
        self$`publishedDescription` <- `publishedDescription`
      }
      if (!missing(`reason`)) {
        stopifnot(is.character(`reason`), length(`reason`) == 1)
        self$`reason` <- `reason`
      }
      if (!missing(`stage`)) {
        stopifnot(is.character(`stage`), length(`stage`) == 1)
        self$`stage` <- `stage`
      }
    },
    toJSON = function() {
      VersionModelModelObject <- list()
      if (!is.null(self$`releasedTimestamp`)) {
        VersionModelModelObject[['releasedTimestamp']] <- self$`releasedTimestamp`$toJSON()
      }
      if (!is.null(self$`publishedTimestamp`)) {
        VersionModelModelObject[['publishedTimestamp']] <- self$`publishedTimestamp`$toJSON()
      }
      if (!is.null(self$`publishedName`)) {
        VersionModelModelObject[['publishedName']] <- self$`publishedName`
      }
      if (!is.null(self$`publishedDescription`)) {
        VersionModelModelObject[['publishedDescription']] <- self$`publishedDescription`
      }
      if (!is.null(self$`reason`)) {
        VersionModelModelObject[['reason']] <- self$`reason`
      }
      if (!is.null(self$`stage`)) {
        VersionModelModelObject[['stage']] <- self$`stage`
      }

      VersionModelModelObject
    },
    fromJSON = function(VersionModelModelJson) {
      VersionModelModelObject <- jsonlite::fromJSON(VersionModelModelJson)
      if (!is.null(VersionModelModelObject$`releasedTimestamp`)) {
        releasedTimestampObject <- TimeStamps$new()
        releasedTimestampObject$fromJSON(jsonlite::toJSON(VersionModelModelObject$releasedTimestamp, auto_unbox = TRUE))
        self$`releasedTimestamp` <- releasedTimestampObject
      }
      if (!is.null(VersionModelModelObject$`publishedTimestamp`)) {
        publishedTimestampObject <- TimeStamps$new()
        publishedTimestampObject$fromJSON(jsonlite::toJSON(VersionModelModelObject$publishedTimestamp, auto_unbox = TRUE))
        self$`publishedTimestamp` <- publishedTimestampObject
      }
      if (!is.null(VersionModelModelObject$`publishedName`)) {
        self$`publishedName` <- VersionModelModelObject$`publishedName`
      }
      if (!is.null(VersionModelModelObject$`publishedDescription`)) {
        self$`publishedDescription` <- VersionModelModelObject$`publishedDescription`
      }
      if (!is.null(VersionModelModelObject$`reason`)) {
        self$`reason` <- VersionModelModelObject$`reason`
      }
      if (!is.null(VersionModelModelObject$`stage`)) {
        self$`stage` <- VersionModelModelObject$`stage`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "releasedTimestamp": %s,
           "publishedTimestamp": %s,
           "publishedName": %s,
           "publishedDescription": %s,
           "reason": %s,
           "stage": %s
        }',
        self$`releasedTimestamp`$toJSON(),
        self$`publishedTimestamp`$toJSON(),
        self$`publishedName`,
        self$`publishedDescription`,
        self$`reason`,
        self$`stage`
      )
    },
    fromJSONString = function(VersionModelModelJson) {
      VersionModelModelObject <- jsonlite::fromJSON(VersionModelModelJson)
      TimeStampsObject <- TimeStamps$new()
      self$`releasedTimestamp` <- TimeStampsObject$fromJSON(jsonlite::toJSON(VersionModelModelObject$releasedTimestamp, auto_unbox = TRUE))
      TimeStampsObject <- TimeStamps$new()
      self$`publishedTimestamp` <- TimeStampsObject$fromJSON(jsonlite::toJSON(VersionModelModelObject$publishedTimestamp, auto_unbox = TRUE))
      self$`publishedName` <- VersionModelModelObject$`publishedName`
      self$`publishedDescription` <- VersionModelModelObject$`publishedDescription`
      self$`reason` <- VersionModelModelObject$`reason`
      self$`stage` <- VersionModelModelObject$`stage`
    }
  )
)