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


#' DVSModelS3 Class
#'
#' @field secretkey 
#' @field secretid 
#' @field bucket 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
DVSModelS3 <- R6::R6Class(
  'DVSModelS3',
  public = list(
    `secretkey` = NULL,
    `secretid` = NULL,
    `bucket` = NULL,
    initialize = function(`secretkey`, `secretid`, `bucket`){
      if (!missing(`secretkey`)) {
        stopifnot(is.character(`secretkey`), length(`secretkey`) == 1)
        self$`secretkey` <- `secretkey`
      }
      if (!missing(`secretid`)) {
        stopifnot(is.character(`secretid`), length(`secretid`) == 1)
        self$`secretid` <- `secretid`
      }
      if (!missing(`bucket`)) {
        stopifnot(is.character(`bucket`), length(`bucket`) == 1)
        self$`bucket` <- `bucket`
      }
    },
    toJSON = function() {
      DVSModelS3Object <- list()
      if (!is.null(self$`secretkey`)) {
        DVSModelS3Object[['secretkey']] <- self$`secretkey`
      }
      if (!is.null(self$`secretid`)) {
        DVSModelS3Object[['secretid']] <- self$`secretid`
      }
      if (!is.null(self$`bucket`)) {
        DVSModelS3Object[['bucket']] <- self$`bucket`
      }

      DVSModelS3Object
    },
    fromJSON = function(DVSModelS3Json) {
      DVSModelS3Object <- jsonlite::fromJSON(DVSModelS3Json)
      if (!is.null(DVSModelS3Object$`secretkey`)) {
        self$`secretkey` <- DVSModelS3Object$`secretkey`
      }
      if (!is.null(DVSModelS3Object$`secretid`)) {
        self$`secretid` <- DVSModelS3Object$`secretid`
      }
      if (!is.null(DVSModelS3Object$`bucket`)) {
        self$`bucket` <- DVSModelS3Object$`bucket`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "secretkey": %s,
           "secretid": %s,
           "bucket": %s
        }',
        self$`secretkey`,
        self$`secretid`,
        self$`bucket`
      )
    },
    fromJSONString = function(DVSModelS3Json) {
      DVSModelS3Object <- jsonlite::fromJSON(DVSModelS3Json)
      self$`secretkey` <- DVSModelS3Object$`secretkey`
      self$`secretid` <- DVSModelS3Object$`secretid`
      self$`bucket` <- DVSModelS3Object$`bucket`
    }
  )
)