R/domain_array.R

In eddelbuettel/tldbclr: TileDB Cloud Platform R Client Package

# TileDB Storage Platform API
#
# TileDB Storage Platform REST API
#
# The version of the OpenAPI document: 2.2.19
# 
# Generated by: https://openapi-generator.tech

#' @docType class
#' @title DomainArray
#'
#' @description DomainArray Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field int8  list( integer ) [optional]
#'
#' @field uint8  list( integer ) [optional]
#'
#' @field int16  list( integer ) [optional]
#'
#' @field uint16  list( integer ) [optional]
#'
#' @field int32  list( integer ) [optional]
#'
#' @field uint32  list( integer ) [optional]
#'
#' @field int64  list( integer ) [optional]
#'
#' @field uint64  list( integer ) [optional]
#'
#' @field float32  list( numeric ) [optional]
#'
#' @field float64  list( numeric ) [optional]
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
DomainArray <- R6::R6Class(
  'DomainArray',
  public = list(
    `int8` = NULL,
    `uint8` = NULL,
    `int16` = NULL,
    `uint16` = NULL,
    `int32` = NULL,
    `uint32` = NULL,
    `int64` = NULL,
    `uint64` = NULL,
    `float32` = NULL,
    `float64` = NULL,
    initialize = function(
        `int8`=NULL, `uint8`=NULL, `int16`=NULL, `uint16`=NULL, `int32`=NULL, `uint32`=NULL, `int64`=NULL, `uint64`=NULL, `float32`=NULL, `float64`=NULL, ...
    ) {
      local.optional.var <- list(...)
      if (!is.null(`int8`)) {
        stopifnot(is.vector(`int8`), length(`int8`) != 0)
        sapply(`int8`, function(x) stopifnot(is.character(x)))
        self$`int8` <- `int8`
      }
      if (!is.null(`uint8`)) {
        stopifnot(is.vector(`uint8`), length(`uint8`) != 0)
        sapply(`uint8`, function(x) stopifnot(is.character(x)))
        self$`uint8` <- `uint8`
      }
      if (!is.null(`int16`)) {
        stopifnot(is.vector(`int16`), length(`int16`) != 0)
        sapply(`int16`, function(x) stopifnot(is.character(x)))
        self$`int16` <- `int16`
      }
      if (!is.null(`uint16`)) {
        stopifnot(is.vector(`uint16`), length(`uint16`) != 0)
        sapply(`uint16`, function(x) stopifnot(is.character(x)))
        self$`uint16` <- `uint16`
      }
      if (!is.null(`int32`)) {
        stopifnot(is.vector(`int32`), length(`int32`) != 0)
        sapply(`int32`, function(x) stopifnot(is.character(x)))
        self$`int32` <- `int32`
      }
      if (!is.null(`uint32`)) {
        stopifnot(is.vector(`uint32`), length(`uint32`) != 0)
        sapply(`uint32`, function(x) stopifnot(is.character(x)))
        self$`uint32` <- `uint32`
      }
      if (!is.null(`int64`)) {
        stopifnot(is.vector(`int64`), length(`int64`) != 0)
        sapply(`int64`, function(x) stopifnot(is.character(x)))
        self$`int64` <- `int64`
      }
      if (!is.null(`uint64`)) {
        stopifnot(is.vector(`uint64`), length(`uint64`) != 0)
        sapply(`uint64`, function(x) stopifnot(is.character(x)))
        self$`uint64` <- `uint64`
      }
      if (!is.null(`float32`)) {
        stopifnot(is.vector(`float32`), length(`float32`) != 0)
        sapply(`float32`, function(x) stopifnot(is.character(x)))
        self$`float32` <- `float32`
      }
      if (!is.null(`float64`)) {
        stopifnot(is.vector(`float64`), length(`float64`) != 0)
        sapply(`float64`, function(x) stopifnot(is.character(x)))
        self$`float64` <- `float64`
      }
    },
    toJSON = function() {
      DomainArrayObject <- list()
      if (!is.null(self$`int8`)) {
        DomainArrayObject[['int8']] <-
          self$`int8`
      }
      if (!is.null(self$`uint8`)) {
        DomainArrayObject[['uint8']] <-
          self$`uint8`
      }
      if (!is.null(self$`int16`)) {
        DomainArrayObject[['int16']] <-
          self$`int16`
      }
      if (!is.null(self$`uint16`)) {
        DomainArrayObject[['uint16']] <-
          self$`uint16`
      }
      if (!is.null(self$`int32`)) {
        DomainArrayObject[['int32']] <-
          self$`int32`
      }
      if (!is.null(self$`uint32`)) {
        DomainArrayObject[['uint32']] <-
          self$`uint32`
      }
      if (!is.null(self$`int64`)) {
        DomainArrayObject[['int64']] <-
          self$`int64`
      }
      if (!is.null(self$`uint64`)) {
        DomainArrayObject[['uint64']] <-
          self$`uint64`
      }
      if (!is.null(self$`float32`)) {
        DomainArrayObject[['float32']] <-
          self$`float32`
      }
      if (!is.null(self$`float64`)) {
        DomainArrayObject[['float64']] <-
          self$`float64`
      }

      DomainArrayObject
    },
    fromJSON = function(DomainArrayJson) {
      DomainArrayObject <- jsonlite::fromJSON(DomainArrayJson)
      if (!is.null(DomainArrayObject$`int8`)) {
        self$`int8` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int8`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`uint8`)) {
        self$`uint8` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint8`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`int16`)) {
        self$`int16` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int16`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`uint16`)) {
        self$`uint16` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint16`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`int32`)) {
        self$`int32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int32`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`uint32`)) {
        self$`uint32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint32`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`int64`)) {
        self$`int64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int64`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`uint64`)) {
        self$`uint64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint64`, "array[integer]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`float32`)) {
        self$`float32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`float32`, "array[numeric]", loadNamespace("tiledbcloud"))
      }
      if (!is.null(DomainArrayObject$`float64`)) {
        self$`float64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`float64`, "array[numeric]", loadNamespace("tiledbcloud"))
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`int8`)) {
        sprintf(
        '"int8":
           [%s]
        ',
        paste(unlist(lapply(self$`int8`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`uint8`)) {
        sprintf(
        '"uint8":
           [%s]
        ',
        paste(unlist(lapply(self$`uint8`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`int16`)) {
        sprintf(
        '"int16":
           [%s]
        ',
        paste(unlist(lapply(self$`int16`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`uint16`)) {
        sprintf(
        '"uint16":
           [%s]
        ',
        paste(unlist(lapply(self$`uint16`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`int32`)) {
        sprintf(
        '"int32":
           [%s]
        ',
        paste(unlist(lapply(self$`int32`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`uint32`)) {
        sprintf(
        '"uint32":
           [%s]
        ',
        paste(unlist(lapply(self$`uint32`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`int64`)) {
        sprintf(
        '"int64":
           [%s]
        ',
        paste(unlist(lapply(self$`int64`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`uint64`)) {
        sprintf(
        '"uint64":
           [%s]
        ',
        paste(unlist(lapply(self$`uint64`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`float32`)) {
        sprintf(
        '"float32":
           [%s]
        ',
        paste(unlist(lapply(self$`float32`, function(x) paste0('"', x, '"'))), collapse=",")
        )},
        if (!is.null(self$`float64`)) {
        sprintf(
        '"float64":
           [%s]
        ',
        paste(unlist(lapply(self$`float64`, function(x) paste0('"', x, '"'))), collapse=",")
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(DomainArrayJson) {
      DomainArrayObject <- jsonlite::fromJSON(DomainArrayJson)
      self$`int8` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int8`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`uint8` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint8`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`int16` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int16`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`uint16` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint16`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`int32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int32`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`uint32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint32`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`int64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`int64`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`uint64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`uint64`, "array[integer]", loadNamespace("tiledbcloud"))
      self$`float32` <- ApiClient$new()$deserializeObj(DomainArrayObject$`float32`, "array[numeric]", loadNamespace("tiledbcloud"))
      self$`float64` <- ApiClient$new()$deserializeObj(DomainArrayObject$`float64`, "array[numeric]", loadNamespace("tiledbcloud"))
      self
    }
  )
)