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


#' WorkerModel Class
#'
#' @field version 
#' @field name 
#' @field role 
#' @field uuid 
#' @field containers 
#' @field status 
#' @field reason 
#' @field event 
#' @field poduuid 
#' @field exit_code 
#' @field node 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
WorkerModel <- R6::R6Class(
  'WorkerModel',
  public = list(
    `version` = NULL,
    `name` = NULL,
    `role` = NULL,
    `uuid` = NULL,
    `containers` = NULL,
    `status` = NULL,
    `reason` = NULL,
    `event` = NULL,
    `poduuid` = NULL,
    `exit_code` = NULL,
    `node` = NULL,
    initialize = function(`version`, `name`, `role`, `uuid`, `containers`, `status`, `reason`, `event`, `poduuid`, `exit_code`, `node`){
      if (!missing(`version`)) {
        stopifnot(is.character(`version`), length(`version`) == 1)
        self$`version` <- `version`
      }
      if (!missing(`name`)) {
        stopifnot(is.character(`name`), length(`name`) == 1)
        self$`name` <- `name`
      }
      if (!missing(`role`)) {
        stopifnot(is.character(`role`), length(`role`) == 1)
        self$`role` <- `role`
      }
      if (!missing(`uuid`)) {
        stopifnot(is.character(`uuid`), length(`uuid`) == 1)
        self$`uuid` <- `uuid`
      }
      if (!missing(`containers`)) {
        stopifnot(is.list(`containers`), length(`containers`) != 0)
        lapply(`containers`, function(x) stopifnot(R6::is.R6(x)))
        self$`containers` <- `containers`
      }
      if (!missing(`status`)) {
        stopifnot(is.character(`status`), length(`status`) == 1)
        self$`status` <- `status`
      }
      if (!missing(`reason`)) {
        stopifnot(is.character(`reason`), length(`reason`) == 1)
        self$`reason` <- `reason`
      }
      if (!missing(`event`)) {
        stopifnot(is.character(`event`), length(`event`) == 1)
        self$`event` <- `event`
      }
      if (!missing(`poduuid`)) {
        stopifnot(is.character(`poduuid`), length(`poduuid`) == 1)
        self$`poduuid` <- `poduuid`
      }
      if (!missing(`exit_code`)) {
        stopifnot(is.numeric(`exit_code`), length(`exit_code`) == 1)
        self$`exit_code` <- `exit_code`
      }
      if (!missing(`node`)) {
        stopifnot(is.character(`node`), length(`node`) == 1)
        self$`node` <- `node`
      }
    },
    toJSON = function() {
      WorkerModelObject <- list()
      if (!is.null(self$`version`)) {
        WorkerModelObject[['version']] <- self$`version`
      }
      if (!is.null(self$`name`)) {
        WorkerModelObject[['name']] <- self$`name`
      }
      if (!is.null(self$`role`)) {
        WorkerModelObject[['role']] <- self$`role`
      }
      if (!is.null(self$`uuid`)) {
        WorkerModelObject[['uuid']] <- self$`uuid`
      }
      if (!is.null(self$`containers`)) {
        WorkerModelObject[['containers']] <- lapply(self$`containers`, function(x) x$toJSON())
      }
      if (!is.null(self$`status`)) {
        WorkerModelObject[['status']] <- self$`status`
      }
      if (!is.null(self$`reason`)) {
        WorkerModelObject[['reason']] <- self$`reason`
      }
      if (!is.null(self$`event`)) {
        WorkerModelObject[['event']] <- self$`event`
      }
      if (!is.null(self$`poduuid`)) {
        WorkerModelObject[['poduuid']] <- self$`poduuid`
      }
      if (!is.null(self$`exit_code`)) {
        WorkerModelObject[['exit_code']] <- self$`exit_code`
      }
      if (!is.null(self$`node`)) {
        WorkerModelObject[['node']] <- self$`node`
      }

      WorkerModelObject
    },
    fromJSON = function(WorkerModelJson) {
      WorkerModelObject <- jsonlite::fromJSON(WorkerModelJson)
      if (!is.null(WorkerModelObject$`version`)) {
        self$`version` <- WorkerModelObject$`version`
      }
      if (!is.null(WorkerModelObject$`name`)) {
        self$`name` <- WorkerModelObject$`name`
      }
      if (!is.null(WorkerModelObject$`role`)) {
        self$`role` <- WorkerModelObject$`role`
      }
      if (!is.null(WorkerModelObject$`uuid`)) {
        self$`uuid` <- WorkerModelObject$`uuid`
      }
      if (!is.null(WorkerModelObject$`containers`)) {
        self$`containers` <- lapply(WorkerModelObject$`containers`, function(x) {
          containersObject <- WorkerModelContainers$new()
          containersObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE))
          containersObject
        })
      }
      if (!is.null(WorkerModelObject$`status`)) {
        self$`status` <- WorkerModelObject$`status`
      }
      if (!is.null(WorkerModelObject$`reason`)) {
        self$`reason` <- WorkerModelObject$`reason`
      }
      if (!is.null(WorkerModelObject$`event`)) {
        self$`event` <- WorkerModelObject$`event`
      }
      if (!is.null(WorkerModelObject$`poduuid`)) {
        self$`poduuid` <- WorkerModelObject$`poduuid`
      }
      if (!is.null(WorkerModelObject$`exit_code`)) {
        self$`exit_code` <- WorkerModelObject$`exit_code`
      }
      if (!is.null(WorkerModelObject$`node`)) {
        self$`node` <- WorkerModelObject$`node`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "version": %s,
           "name": %s,
           "role": %s,
           "uuid": %s,
           "containers": [%s],
           "status": %s,
           "reason": %s,
           "event": %s,
           "poduuid": %s,
           "exit_code": %d,
           "node": %s
        }',
        self$`version`,
        self$`name`,
        self$`role`,
        self$`uuid`,
        lapply(self$`containers`, function(x) paste(x$toJSON(), sep=",")),
        self$`status`,
        self$`reason`,
        self$`event`,
        self$`poduuid`,
        self$`exit_code`,
        self$`node`
      )
    },
    fromJSONString = function(WorkerModelJson) {
      WorkerModelObject <- jsonlite::fromJSON(WorkerModelJson)
      self$`version` <- WorkerModelObject$`version`
      self$`name` <- WorkerModelObject$`name`
      self$`role` <- WorkerModelObject$`role`
      self$`uuid` <- WorkerModelObject$`uuid`
      self$`containers` <- lapply(WorkerModelObject$`containers`, function(x) WorkerModelContainers$new()$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE)))
      self$`status` <- WorkerModelObject$`status`
      self$`reason` <- WorkerModelObject$`reason`
      self$`event` <- WorkerModelObject$`event`
      self$`poduuid` <- WorkerModelObject$`poduuid`
      self$`exit_code` <- WorkerModelObject$`exit_code`
      self$`node` <- WorkerModelObject$`node`
    }
  )
)