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


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

      ModelServingInfoImagesObject
    },
    fromJSON = function(ModelServingInfoImagesJson) {
      ModelServingInfoImagesObject <- jsonlite::fromJSON(ModelServingInfoImagesJson)
      if (!is.null(ModelServingInfoImagesObject$`serving`)) {
        servingObject <- CustomContainerModel$new()
        servingObject$fromJSON(jsonlite::toJSON(ModelServingInfoImagesObject$serving, auto_unbox = TRUE))
        self$`serving` <- servingObject
      }
      if (!is.null(ModelServingInfoImagesObject$`transformer`)) {
        transformerObject <- CustomContainerModel$new()
        transformerObject$fromJSON(jsonlite::toJSON(ModelServingInfoImagesObject$transformer, auto_unbox = TRUE))
        self$`transformer` <- transformerObject
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "serving": %s,
           "transformer": %s
        }',
        self$`serving`$toJSON(),
        self$`transformer`$toJSON()
      )
    },
    fromJSONString = function(ModelServingInfoImagesJson) {
      ModelServingInfoImagesObject <- jsonlite::fromJSON(ModelServingInfoImagesJson)
      CustomContainerModelObject <- CustomContainerModel$new()
      self$`serving` <- CustomContainerModelObject$fromJSON(jsonlite::toJSON(ModelServingInfoImagesObject$serving, auto_unbox = TRUE))
      CustomContainerModelObject <- CustomContainerModel$new()
      self$`transformer` <- CustomContainerModelObject$fromJSON(jsonlite::toJSON(ModelServingInfoImagesObject$transformer, auto_unbox = TRUE))
    }
  )
)