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


#' JobCollection Class
#'
#' @field children 
#' @field job 
#' @field workers 
#' @field devices 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
JobCollection <- R6::R6Class(
  'JobCollection',
  public = list(
    `children` = NULL,
    `job` = NULL,
    `workers` = NULL,
    `devices` = NULL,
    initialize = function(`children`, `job`, `workers`, `devices`){
      if (!missing(`children`)) {
        stopifnot(is.list(`children`), length(`children`) != 0)
        lapply(`children`, function(x) stopifnot(R6::is.R6(x)))
        self$`children` <- `children`
      }
      if (!missing(`job`)) {
        stopifnot(R6::is.R6(`job`))
        self$`job` <- `job`
      }
      if (!missing(`workers`)) {
        stopifnot(is.list(`workers`), length(`workers`) != 0)
        lapply(`workers`, function(x) stopifnot(R6::is.R6(x)))
        self$`workers` <- `workers`
      }
      if (!missing(`devices`)) {
        stopifnot(is.list(`devices`), length(`devices`) != 0)
        lapply(`devices`, function(x) stopifnot(R6::is.R6(x)))
        self$`devices` <- `devices`
      }
    },
    toJSON = function() {
      JobCollectionObject <- list()
      if (!is.null(self$`children`)) {
        JobCollectionObject[['children']] <- lapply(self$`children`, function(x) x$toJSON())
      }
      if (!is.null(self$`job`)) {
        JobCollectionObject[['job']] <- self$`job`$toJSON()
      }
      if (!is.null(self$`workers`)) {
        JobCollectionObject[['workers']] <- lapply(self$`workers`, function(x) x$toJSON())
      }
      if (!is.null(self$`devices`)) {
        JobCollectionObject[['devices']] <- lapply(self$`devices`, function(x) x$toJSON())
      }

      JobCollectionObject
    },
    fromJSON = function(JobCollectionJson) {
      JobCollectionObject <- jsonlite::fromJSON(JobCollectionJson)
      if (!is.null(JobCollectionObject$`children`)) {
        self$`children` <- lapply(JobCollectionObject$`children`, function(x) {
          childrenObject <- JobModel$new()
          childrenObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE))
          childrenObject
        })
      }
      if (!is.null(JobCollectionObject$`job`)) {
        jobObject <- JobModel$new()
        jobObject$fromJSON(jsonlite::toJSON(JobCollectionObject$job, auto_unbox = TRUE))
        self$`job` <- jobObject
      }
      if (!is.null(JobCollectionObject$`workers`)) {
        self$`workers` <- lapply(JobCollectionObject$`workers`, function(x) {
          workersObject <- WorkerModel$new()
          workersObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE))
          workersObject
        })
      }
      if (!is.null(JobCollectionObject$`devices`)) {
        self$`devices` <- lapply(JobCollectionObject$`devices`, function(x) {
          devicesObject <- JobCollectionDevices$new()
          devicesObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE))
          devicesObject
        })
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "children": [%s],
           "job": %s,
           "workers": [%s],
           "devices": [%s]
        }',
        lapply(self$`children`, function(x) paste(x$toJSON(), sep=",")),
        self$`job`$toJSON(),
        lapply(self$`workers`, function(x) paste(x$toJSON(), sep=",")),
        lapply(self$`devices`, function(x) paste(x$toJSON(), sep=","))
      )
    },
    fromJSONString = function(JobCollectionJson) {
      JobCollectionObject <- jsonlite::fromJSON(JobCollectionJson)
      self$`children` <- lapply(JobCollectionObject$`children`, function(x) JobModel$new()$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE)))
      JobModelObject <- JobModel$new()
      self$`job` <- JobModelObject$fromJSON(jsonlite::toJSON(JobCollectionObject$job, auto_unbox = TRUE))
      self$`workers` <- lapply(JobCollectionObject$`workers`, function(x) WorkerModel$new()$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE)))
      self$`devices` <- lapply(JobCollectionObject$`devices`, function(x) JobCollectionDevices$new()$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE)))
    }
  )
)