R/LayerDTO.r

In OpenSILEX/phis-ws-client-r-tool: R Package Client for sunagriAPI

# sunagriAPI
#
# An instance of OpenSILEX WebService
#
# OpenAPI spec version: 3.3.0
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' LayerDTO Class
#'
#' @field objectUri 
#' @field objectType 
#' @field depth 
#' @field generateFile 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
LayerDTO <- R6::R6Class(
  'LayerDTO',
  public = list(
    `objectUri` = NULL,
    `objectType` = NULL,
    `depth` = NULL,
    `generateFile` = NULL,
    initialize = function(`objectUri`, `objectType`, `depth`, `generateFile`){
      if (!missing(`objectUri`)) {
        stopifnot(is.character(`objectUri`), length(`objectUri`) == 1)
        self$`objectUri` <- `objectUri`
      }
      if (!missing(`objectType`)) {
        stopifnot(is.character(`objectType`), length(`objectType`) == 1)
        self$`objectType` <- `objectType`
      }
      if (!missing(`depth`)) {
        stopifnot(is.character(`depth`), length(`depth`) == 1)
        self$`depth` <- `depth`
      }
      if (!missing(`generateFile`)) {
        stopifnot(is.character(`generateFile`), length(`generateFile`) == 1)
        self$`generateFile` <- `generateFile`
      }
    },
    toJSON = function() {
      LayerDTOObject <- list()
      if (!is.null(self$`objectUri`)) {
        LayerDTOObject[['objectUri']] <- self$`objectUri`
      }
      if (!is.null(self$`objectType`)) {
        LayerDTOObject[['objectType']] <- self$`objectType`
      }
      if (!is.null(self$`depth`)) {
        LayerDTOObject[['depth']] <- self$`depth`
      }
      if (!is.null(self$`generateFile`)) {
        LayerDTOObject[['generateFile']] <- self$`generateFile`
      }

      LayerDTOObject
    },
    fromJSON = function(LayerDTOJson) {
      LayerDTOObject <- jsonlite::fromJSON(LayerDTOJson)
      if (!is.null(LayerDTOObject$`objectUri`)) {
        self$`objectUri` <- LayerDTOObject$`objectUri`
      }
      if (!is.null(LayerDTOObject$`objectType`)) {
        self$`objectType` <- LayerDTOObject$`objectType`
      }
      if (!is.null(LayerDTOObject$`depth`)) {
        self$`depth` <- LayerDTOObject$`depth`
      }
      if (!is.null(LayerDTOObject$`generateFile`)) {
        self$`generateFile` <- LayerDTOObject$`generateFile`
      }
    },
    fromJSONObject = function(LayerDTOObject) {
      if (!is.null(LayerDTOObject$`objectUri`)) {
        self$`objectUri` <- LayerDTOObject$`objectUri`
      }
      if (!is.null(LayerDTOObject$`objectType`)) {
        self$`objectType` <- LayerDTOObject$`objectType`
      }
      if (!is.null(LayerDTOObject$`depth`)) {
        self$`depth` <- LayerDTOObject$`depth`
      }
      if (!is.null(LayerDTOObject$`generateFile`)) {
        self$`generateFile` <- LayerDTOObject$`generateFile`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "objectUri": %s,
           "objectType": %s,
           "depth": %s,
           "generateFile": %s
        }',
        jsonlite::toJSON(self$`objectUri`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`objectType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`depth`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`generateFile`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(LayerDTOJson) {
      LayerDTOObject <- jsonlite::fromJSON(LayerDTOJson)
      self$`objectUri` <- LayerDTOObject$`objectUri`
      self$`objectType` <- LayerDTOObject$`objectType`
      self$`depth` <- LayerDTOObject$`depth`
      self$`generateFile` <- LayerDTOObject$`generateFile`
    }
  )
)