R/inline_response20084.R

In grahamjwhite/binanceRapi: R Package Client for Binance Public Spot API

# Binance Public Spot API
#
# OpenAPI Specifications for the Binance Public Spot API  API documents:   - [https://github.com/binance/binance-spot-api-docs](https://github.com/binance/binance-spot-api-docs)   - [https://binance-docs.github.io/apidocs/spot/en](https://binance-docs.github.io/apidocs/spot/en)
#
# The version of the OpenAPI document: 1.0
# 
# Generated by: https://openapi-generator.tech

#' @docType class
#' @title InlineResponse20084
#'
#' @description InlineResponse20084 Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field asset  character 
#'
#' @field avgAnnualInterestRate  character 
#'
#' @field canPurchase  character 
#'
#' @field canRedeem  character 
#'
#' @field dailyInterestPerThousand  character 
#'
#' @field featured  character 
#'
#' @field minPurchaseAmount  character 
#'
#' @field productId  character 
#'
#' @field purchasedAmount  character 
#'
#' @field status  character 
#'
#' @field upLimit  character 
#'
#' @field upLimitPerUser  character 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InlineResponse20084 <- R6::R6Class(
  'InlineResponse20084',
  public = list(
    `asset` = NULL,
    `avgAnnualInterestRate` = NULL,
    `canPurchase` = NULL,
    `canRedeem` = NULL,
    `dailyInterestPerThousand` = NULL,
    `featured` = NULL,
    `minPurchaseAmount` = NULL,
    `productId` = NULL,
    `purchasedAmount` = NULL,
    `status` = NULL,
    `upLimit` = NULL,
    `upLimitPerUser` = NULL,
    initialize = function(
        `asset`, `avgAnnualInterestRate`, `canPurchase`, `canRedeem`, `dailyInterestPerThousand`, `featured`, `minPurchaseAmount`, `productId`, `purchasedAmount`, `status`, `upLimit`, `upLimitPerUser`, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`asset`)) {
        stopifnot(is.character(`asset`), length(`asset`) == 1)
        self$`asset` <- `asset`
      }
      if (!missing(`avgAnnualInterestRate`)) {
        stopifnot(is.character(`avgAnnualInterestRate`), length(`avgAnnualInterestRate`) == 1)
        self$`avgAnnualInterestRate` <- `avgAnnualInterestRate`
      }
      if (!missing(`canPurchase`)) {
        stopifnot(is.logical(`canPurchase`), length(`canPurchase`) == 1)
        self$`canPurchase` <- `canPurchase`
      }
      if (!missing(`canRedeem`)) {
        stopifnot(is.logical(`canRedeem`), length(`canRedeem`) == 1)
        self$`canRedeem` <- `canRedeem`
      }
      if (!missing(`dailyInterestPerThousand`)) {
        stopifnot(is.character(`dailyInterestPerThousand`), length(`dailyInterestPerThousand`) == 1)
        self$`dailyInterestPerThousand` <- `dailyInterestPerThousand`
      }
      if (!missing(`featured`)) {
        stopifnot(is.logical(`featured`), length(`featured`) == 1)
        self$`featured` <- `featured`
      }
      if (!missing(`minPurchaseAmount`)) {
        stopifnot(is.character(`minPurchaseAmount`), length(`minPurchaseAmount`) == 1)
        self$`minPurchaseAmount` <- `minPurchaseAmount`
      }
      if (!missing(`productId`)) {
        stopifnot(is.character(`productId`), length(`productId`) == 1)
        self$`productId` <- `productId`
      }
      if (!missing(`purchasedAmount`)) {
        stopifnot(is.character(`purchasedAmount`), length(`purchasedAmount`) == 1)
        self$`purchasedAmount` <- `purchasedAmount`
      }
      if (!missing(`status`)) {
        stopifnot(is.character(`status`), length(`status`) == 1)
        self$`status` <- `status`
      }
      if (!missing(`upLimit`)) {
        stopifnot(is.character(`upLimit`), length(`upLimit`) == 1)
        self$`upLimit` <- `upLimit`
      }
      if (!missing(`upLimitPerUser`)) {
        stopifnot(is.character(`upLimitPerUser`), length(`upLimitPerUser`) == 1)
        self$`upLimitPerUser` <- `upLimitPerUser`
      }
    },
    toJSON = function() {
      InlineResponse20084Object <- list()
      if (!is.null(self$`asset`)) {
        InlineResponse20084Object[['asset']] <-
          self$`asset`
      }
      if (!is.null(self$`avgAnnualInterestRate`)) {
        InlineResponse20084Object[['avgAnnualInterestRate']] <-
          self$`avgAnnualInterestRate`
      }
      if (!is.null(self$`canPurchase`)) {
        InlineResponse20084Object[['canPurchase']] <-
          self$`canPurchase`
      }
      if (!is.null(self$`canRedeem`)) {
        InlineResponse20084Object[['canRedeem']] <-
          self$`canRedeem`
      }
      if (!is.null(self$`dailyInterestPerThousand`)) {
        InlineResponse20084Object[['dailyInterestPerThousand']] <-
          self$`dailyInterestPerThousand`
      }
      if (!is.null(self$`featured`)) {
        InlineResponse20084Object[['featured']] <-
          self$`featured`
      }
      if (!is.null(self$`minPurchaseAmount`)) {
        InlineResponse20084Object[['minPurchaseAmount']] <-
          self$`minPurchaseAmount`
      }
      if (!is.null(self$`productId`)) {
        InlineResponse20084Object[['productId']] <-
          self$`productId`
      }
      if (!is.null(self$`purchasedAmount`)) {
        InlineResponse20084Object[['purchasedAmount']] <-
          self$`purchasedAmount`
      }
      if (!is.null(self$`status`)) {
        InlineResponse20084Object[['status']] <-
          self$`status`
      }
      if (!is.null(self$`upLimit`)) {
        InlineResponse20084Object[['upLimit']] <-
          self$`upLimit`
      }
      if (!is.null(self$`upLimitPerUser`)) {
        InlineResponse20084Object[['upLimitPerUser']] <-
          self$`upLimitPerUser`
      }

      InlineResponse20084Object
    },
    fromJSON = function(InlineResponse20084Json) {
      InlineResponse20084Object <- jsonlite::fromJSON(InlineResponse20084Json)
      if (!is.null(InlineResponse20084Object$`asset`)) {
        self$`asset` <- InlineResponse20084Object$`asset`
      }
      if (!is.null(InlineResponse20084Object$`avgAnnualInterestRate`)) {
        self$`avgAnnualInterestRate` <- InlineResponse20084Object$`avgAnnualInterestRate`
      }
      if (!is.null(InlineResponse20084Object$`canPurchase`)) {
        self$`canPurchase` <- InlineResponse20084Object$`canPurchase`
      }
      if (!is.null(InlineResponse20084Object$`canRedeem`)) {
        self$`canRedeem` <- InlineResponse20084Object$`canRedeem`
      }
      if (!is.null(InlineResponse20084Object$`dailyInterestPerThousand`)) {
        self$`dailyInterestPerThousand` <- InlineResponse20084Object$`dailyInterestPerThousand`
      }
      if (!is.null(InlineResponse20084Object$`featured`)) {
        self$`featured` <- InlineResponse20084Object$`featured`
      }
      if (!is.null(InlineResponse20084Object$`minPurchaseAmount`)) {
        self$`minPurchaseAmount` <- InlineResponse20084Object$`minPurchaseAmount`
      }
      if (!is.null(InlineResponse20084Object$`productId`)) {
        self$`productId` <- InlineResponse20084Object$`productId`
      }
      if (!is.null(InlineResponse20084Object$`purchasedAmount`)) {
        self$`purchasedAmount` <- InlineResponse20084Object$`purchasedAmount`
      }
      if (!is.null(InlineResponse20084Object$`status`)) {
        self$`status` <- InlineResponse20084Object$`status`
      }
      if (!is.null(InlineResponse20084Object$`upLimit`)) {
        self$`upLimit` <- InlineResponse20084Object$`upLimit`
      }
      if (!is.null(InlineResponse20084Object$`upLimitPerUser`)) {
        self$`upLimitPerUser` <- InlineResponse20084Object$`upLimitPerUser`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`asset`)) {
        sprintf(
        '"asset":
          "%s"
                ',
        self$`asset`
        )},
        if (!is.null(self$`avgAnnualInterestRate`)) {
        sprintf(
        '"avgAnnualInterestRate":
          "%s"
                ',
        self$`avgAnnualInterestRate`
        )},
        if (!is.null(self$`canPurchase`)) {
        sprintf(
        '"canPurchase":
          %s
                ',
        tolower(self$`canPurchase`)
        )},
        if (!is.null(self$`canRedeem`)) {
        sprintf(
        '"canRedeem":
          %s
                ',
        tolower(self$`canRedeem`)
        )},
        if (!is.null(self$`dailyInterestPerThousand`)) {
        sprintf(
        '"dailyInterestPerThousand":
          "%s"
                ',
        self$`dailyInterestPerThousand`
        )},
        if (!is.null(self$`featured`)) {
        sprintf(
        '"featured":
          %s
                ',
        tolower(self$`featured`)
        )},
        if (!is.null(self$`minPurchaseAmount`)) {
        sprintf(
        '"minPurchaseAmount":
          "%s"
                ',
        self$`minPurchaseAmount`
        )},
        if (!is.null(self$`productId`)) {
        sprintf(
        '"productId":
          "%s"
                ',
        self$`productId`
        )},
        if (!is.null(self$`purchasedAmount`)) {
        sprintf(
        '"purchasedAmount":
          "%s"
                ',
        self$`purchasedAmount`
        )},
        if (!is.null(self$`status`)) {
        sprintf(
        '"status":
          "%s"
                ',
        self$`status`
        )},
        if (!is.null(self$`upLimit`)) {
        sprintf(
        '"upLimit":
          "%s"
                ',
        self$`upLimit`
        )},
        if (!is.null(self$`upLimitPerUser`)) {
        sprintf(
        '"upLimitPerUser":
          "%s"
                ',
        self$`upLimitPerUser`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InlineResponse20084Json) {
      InlineResponse20084Object <- jsonlite::fromJSON(InlineResponse20084Json)
      self$`asset` <- InlineResponse20084Object$`asset`
      self$`avgAnnualInterestRate` <- InlineResponse20084Object$`avgAnnualInterestRate`
      self$`canPurchase` <- InlineResponse20084Object$`canPurchase`
      self$`canRedeem` <- InlineResponse20084Object$`canRedeem`
      self$`dailyInterestPerThousand` <- InlineResponse20084Object$`dailyInterestPerThousand`
      self$`featured` <- InlineResponse20084Object$`featured`
      self$`minPurchaseAmount` <- InlineResponse20084Object$`minPurchaseAmount`
      self$`productId` <- InlineResponse20084Object$`productId`
      self$`purchasedAmount` <- InlineResponse20084Object$`purchasedAmount`
      self$`status` <- InlineResponse20084Object$`status`
      self$`upLimit` <- InlineResponse20084Object$`upLimit`
      self$`upLimitPerUser` <- InlineResponse20084Object$`upLimitPerUser`
      self
    }
  )
)