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


#' JobClusterModelSchedulingOpts Class
#'
#' @field slurmhpc 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
JobClusterModelSchedulingOpts <- R6::R6Class(
  'JobClusterModelSchedulingOpts',
  public = list(
    `slurmhpc` = NULL,
    initialize = function(`slurmhpc`){
      if (!missing(`slurmhpc`)) {
        stopifnot(R6::is.R6(`slurmhpc`))
        self$`slurmhpc` <- `slurmhpc`
      }
    },
    toJSON = function() {
      JobClusterModelSchedulingOptsObject <- list()
      if (!is.null(self$`slurmhpc`)) {
        JobClusterModelSchedulingOptsObject[['slurmhpc']] <- self$`slurmhpc`$toJSON()
      }

      JobClusterModelSchedulingOptsObject
    },
    fromJSON = function(JobClusterModelSchedulingOptsJson) {
      JobClusterModelSchedulingOptsObject <- jsonlite::fromJSON(JobClusterModelSchedulingOptsJson)
      if (!is.null(JobClusterModelSchedulingOptsObject$`slurmhpc`)) {
        slurmhpcObject <- JobClusterModelSchedulingOptsSlurmhpc$new()
        slurmhpcObject$fromJSON(jsonlite::toJSON(JobClusterModelSchedulingOptsObject$slurmhpc, auto_unbox = TRUE))
        self$`slurmhpc` <- slurmhpcObject
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "slurmhpc": %s
        }',
        self$`slurmhpc`$toJSON()
      )
    },
    fromJSONString = function(JobClusterModelSchedulingOptsJson) {
      JobClusterModelSchedulingOptsObject <- jsonlite::fromJSON(JobClusterModelSchedulingOptsJson)
      JobClusterModelSchedulingOptsSlurmhpcObject <- JobClusterModelSchedulingOptsSlurmhpc$new()
      self$`slurmhpc` <- JobClusterModelSchedulingOptsSlurmhpcObject$fromJSON(jsonlite::toJSON(JobClusterModelSchedulingOptsObject$slurmhpc, auto_unbox = TRUE))
    }
  )
)