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


#' JobModelParametersGeneratedDetails Class
#'
#' @field tensorboard 
#' @field notebook 
#' @field training 
#' @field serving 
#' @field custom 
#' @field accesstoken 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
JobModelParametersGeneratedDetails <- R6::R6Class(
  'JobModelParametersGeneratedDetails',
  public = list(
    `tensorboard` = NULL,
    `notebook` = NULL,
    `training` = NULL,
    `serving` = NULL,
    `custom` = NULL,
    `accesstoken` = NULL,
    initialize = function(`tensorboard`, `notebook`, `training`, `serving`, `custom`, `accesstoken`){
      if (!missing(`tensorboard`)) {
        stopifnot(R6::is.R6(`tensorboard`))
        self$`tensorboard` <- `tensorboard`
      }
      if (!missing(`notebook`)) {
        stopifnot(R6::is.R6(`notebook`))
        self$`notebook` <- `notebook`
      }
      if (!missing(`training`)) {
        stopifnot(R6::is.R6(`training`))
        self$`training` <- `training`
      }
      if (!missing(`serving`)) {
        stopifnot(R6::is.R6(`serving`))
        self$`serving` <- `serving`
      }
      if (!missing(`custom`)) {
        stopifnot(R6::is.R6(`custom`))
        self$`custom` <- `custom`
      }
      if (!missing(`accesstoken`)) {
        stopifnot(is.character(`accesstoken`), length(`accesstoken`) == 1)
        self$`accesstoken` <- `accesstoken`
      }
    },
    toJSON = function() {
      JobModelParametersGeneratedDetailsObject <- list()
      if (!is.null(self$`tensorboard`)) {
        JobModelParametersGeneratedDetailsObject[['tensorboard']] <- self$`tensorboard`$toJSON()
      }
      if (!is.null(self$`notebook`)) {
        JobModelParametersGeneratedDetailsObject[['notebook']] <- self$`notebook`$toJSON()
      }
      if (!is.null(self$`training`)) {
        JobModelParametersGeneratedDetailsObject[['training']] <- self$`training`$toJSON()
      }
      if (!is.null(self$`serving`)) {
        JobModelParametersGeneratedDetailsObject[['serving']] <- self$`serving`$toJSON()
      }
      if (!is.null(self$`custom`)) {
        JobModelParametersGeneratedDetailsObject[['custom']] <- self$`custom`$toJSON()
      }
      if (!is.null(self$`accesstoken`)) {
        JobModelParametersGeneratedDetailsObject[['accesstoken']] <- self$`accesstoken`
      }

      JobModelParametersGeneratedDetailsObject
    },
    fromJSON = function(JobModelParametersGeneratedDetailsJson) {
      JobModelParametersGeneratedDetailsObject <- jsonlite::fromJSON(JobModelParametersGeneratedDetailsJson)
      if (!is.null(JobModelParametersGeneratedDetailsObject$`tensorboard`)) {
        tensorboardObject <- TensorboardModel$new()
        tensorboardObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$tensorboard, auto_unbox = TRUE))
        self$`tensorboard` <- tensorboardObject
      }
      if (!is.null(JobModelParametersGeneratedDetailsObject$`notebook`)) {
        notebookObject <- NotebookResultModel$new()
        notebookObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$notebook, auto_unbox = TRUE))
        self$`notebook` <- notebookObject
      }
      if (!is.null(JobModelParametersGeneratedDetailsObject$`training`)) {
        trainingObject <- TrainingResultModel$new()
        trainingObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$training, auto_unbox = TRUE))
        self$`training` <- trainingObject
      }
      if (!is.null(JobModelParametersGeneratedDetailsObject$`serving`)) {
        servingObject <- ServingResultModel$new()
        servingObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$serving, auto_unbox = TRUE))
        self$`serving` <- servingObject
      }
      if (!is.null(JobModelParametersGeneratedDetailsObject$`custom`)) {
        customObject <- CustomJobResultModel$new()
        customObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$custom, auto_unbox = TRUE))
        self$`custom` <- customObject
      }
      if (!is.null(JobModelParametersGeneratedDetailsObject$`accesstoken`)) {
        self$`accesstoken` <- JobModelParametersGeneratedDetailsObject$`accesstoken`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "tensorboard": %s,
           "notebook": %s,
           "training": %s,
           "serving": %s,
           "custom": %s,
           "accesstoken": %s
        }',
        self$`tensorboard`$toJSON(),
        self$`notebook`$toJSON(),
        self$`training`$toJSON(),
        self$`serving`$toJSON(),
        self$`custom`$toJSON(),
        self$`accesstoken`
      )
    },
    fromJSONString = function(JobModelParametersGeneratedDetailsJson) {
      JobModelParametersGeneratedDetailsObject <- jsonlite::fromJSON(JobModelParametersGeneratedDetailsJson)
      TensorboardModelObject <- TensorboardModel$new()
      self$`tensorboard` <- TensorboardModelObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$tensorboard, auto_unbox = TRUE))
      NotebookResultModelObject <- NotebookResultModel$new()
      self$`notebook` <- NotebookResultModelObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$notebook, auto_unbox = TRUE))
      TrainingResultModelObject <- TrainingResultModel$new()
      self$`training` <- TrainingResultModelObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$training, auto_unbox = TRUE))
      ServingResultModelObject <- ServingResultModel$new()
      self$`serving` <- ServingResultModelObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$serving, auto_unbox = TRUE))
      CustomJobResultModelObject <- CustomJobResultModel$new()
      self$`custom` <- CustomJobResultModelObject$fromJSON(jsonlite::toJSON(JobModelParametersGeneratedDetailsObject$custom, auto_unbox = TRUE))
      self$`accesstoken` <- JobModelParametersGeneratedDetailsObject$`accesstoken`
    }
  )
)