R/inline_response200118_data.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 InlineResponse200118Data
#'
#' @description InlineResponse200118Data Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field orderNumber  character 
#'
#' @field advNo  character 
#'
#' @field tradeType  character 
#'
#' @field asset  character 
#'
#' @field fiat  character 
#'
#' @field fiatSymbol  character 
#'
#' @field amount  character 
#'
#' @field totalPrice  character 
#'
#' @field unitPrice  character 
#'
#' @field orderStatus  character 
#'
#' @field createTime  integer 
#'
#' @field commission  character 
#'
#' @field counterPartNickName  character 
#'
#' @field advertisementRole  character 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InlineResponse200118Data <- R6::R6Class(
  'InlineResponse200118Data',
  public = list(
    `orderNumber` = NULL,
    `advNo` = NULL,
    `tradeType` = NULL,
    `asset` = NULL,
    `fiat` = NULL,
    `fiatSymbol` = NULL,
    `amount` = NULL,
    `totalPrice` = NULL,
    `unitPrice` = NULL,
    `orderStatus` = NULL,
    `createTime` = NULL,
    `commission` = NULL,
    `counterPartNickName` = NULL,
    `advertisementRole` = NULL,
    initialize = function(
        `orderNumber`, `advNo`, `tradeType`, `asset`, `fiat`, `fiatSymbol`, `amount`, `totalPrice`, `unitPrice`, `orderStatus`, `createTime`, `commission`, `counterPartNickName`, `advertisementRole`, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`orderNumber`)) {
        stopifnot(is.character(`orderNumber`), length(`orderNumber`) == 1)
        self$`orderNumber` <- `orderNumber`
      }
      if (!missing(`advNo`)) {
        stopifnot(is.character(`advNo`), length(`advNo`) == 1)
        self$`advNo` <- `advNo`
      }
      if (!missing(`tradeType`)) {
        stopifnot(is.character(`tradeType`), length(`tradeType`) == 1)
        self$`tradeType` <- `tradeType`
      }
      if (!missing(`asset`)) {
        stopifnot(is.character(`asset`), length(`asset`) == 1)
        self$`asset` <- `asset`
      }
      if (!missing(`fiat`)) {
        stopifnot(is.character(`fiat`), length(`fiat`) == 1)
        self$`fiat` <- `fiat`
      }
      if (!missing(`fiatSymbol`)) {
        stopifnot(is.character(`fiatSymbol`), length(`fiatSymbol`) == 1)
        self$`fiatSymbol` <- `fiatSymbol`
      }
      if (!missing(`amount`)) {
        stopifnot(is.character(`amount`), length(`amount`) == 1)
        self$`amount` <- `amount`
      }
      if (!missing(`totalPrice`)) {
        stopifnot(is.character(`totalPrice`), length(`totalPrice`) == 1)
        self$`totalPrice` <- `totalPrice`
      }
      if (!missing(`unitPrice`)) {
        stopifnot(is.character(`unitPrice`), length(`unitPrice`) == 1)
        self$`unitPrice` <- `unitPrice`
      }
      if (!missing(`orderStatus`)) {
        stopifnot(is.character(`orderStatus`), length(`orderStatus`) == 1)
        self$`orderStatus` <- `orderStatus`
      }
      if (!missing(`createTime`)) {
        stopifnot(is.numeric(`createTime`), length(`createTime`) == 1)
        self$`createTime` <- `createTime`
      }
      if (!missing(`commission`)) {
        stopifnot(is.character(`commission`), length(`commission`) == 1)
        self$`commission` <- `commission`
      }
      if (!missing(`counterPartNickName`)) {
        stopifnot(is.character(`counterPartNickName`), length(`counterPartNickName`) == 1)
        self$`counterPartNickName` <- `counterPartNickName`
      }
      if (!missing(`advertisementRole`)) {
        stopifnot(is.character(`advertisementRole`), length(`advertisementRole`) == 1)
        self$`advertisementRole` <- `advertisementRole`
      }
    },
    toJSON = function() {
      InlineResponse200118DataObject <- list()
      if (!is.null(self$`orderNumber`)) {
        InlineResponse200118DataObject[['orderNumber']] <-
          self$`orderNumber`
      }
      if (!is.null(self$`advNo`)) {
        InlineResponse200118DataObject[['advNo']] <-
          self$`advNo`
      }
      if (!is.null(self$`tradeType`)) {
        InlineResponse200118DataObject[['tradeType']] <-
          self$`tradeType`
      }
      if (!is.null(self$`asset`)) {
        InlineResponse200118DataObject[['asset']] <-
          self$`asset`
      }
      if (!is.null(self$`fiat`)) {
        InlineResponse200118DataObject[['fiat']] <-
          self$`fiat`
      }
      if (!is.null(self$`fiatSymbol`)) {
        InlineResponse200118DataObject[['fiatSymbol']] <-
          self$`fiatSymbol`
      }
      if (!is.null(self$`amount`)) {
        InlineResponse200118DataObject[['amount']] <-
          self$`amount`
      }
      if (!is.null(self$`totalPrice`)) {
        InlineResponse200118DataObject[['totalPrice']] <-
          self$`totalPrice`
      }
      if (!is.null(self$`unitPrice`)) {
        InlineResponse200118DataObject[['unitPrice']] <-
          self$`unitPrice`
      }
      if (!is.null(self$`orderStatus`)) {
        InlineResponse200118DataObject[['orderStatus']] <-
          self$`orderStatus`
      }
      if (!is.null(self$`createTime`)) {
        InlineResponse200118DataObject[['createTime']] <-
          self$`createTime`
      }
      if (!is.null(self$`commission`)) {
        InlineResponse200118DataObject[['commission']] <-
          self$`commission`
      }
      if (!is.null(self$`counterPartNickName`)) {
        InlineResponse200118DataObject[['counterPartNickName']] <-
          self$`counterPartNickName`
      }
      if (!is.null(self$`advertisementRole`)) {
        InlineResponse200118DataObject[['advertisementRole']] <-
          self$`advertisementRole`
      }

      InlineResponse200118DataObject
    },
    fromJSON = function(InlineResponse200118DataJson) {
      InlineResponse200118DataObject <- jsonlite::fromJSON(InlineResponse200118DataJson)
      if (!is.null(InlineResponse200118DataObject$`orderNumber`)) {
        self$`orderNumber` <- InlineResponse200118DataObject$`orderNumber`
      }
      if (!is.null(InlineResponse200118DataObject$`advNo`)) {
        self$`advNo` <- InlineResponse200118DataObject$`advNo`
      }
      if (!is.null(InlineResponse200118DataObject$`tradeType`)) {
        self$`tradeType` <- InlineResponse200118DataObject$`tradeType`
      }
      if (!is.null(InlineResponse200118DataObject$`asset`)) {
        self$`asset` <- InlineResponse200118DataObject$`asset`
      }
      if (!is.null(InlineResponse200118DataObject$`fiat`)) {
        self$`fiat` <- InlineResponse200118DataObject$`fiat`
      }
      if (!is.null(InlineResponse200118DataObject$`fiatSymbol`)) {
        self$`fiatSymbol` <- InlineResponse200118DataObject$`fiatSymbol`
      }
      if (!is.null(InlineResponse200118DataObject$`amount`)) {
        self$`amount` <- InlineResponse200118DataObject$`amount`
      }
      if (!is.null(InlineResponse200118DataObject$`totalPrice`)) {
        self$`totalPrice` <- InlineResponse200118DataObject$`totalPrice`
      }
      if (!is.null(InlineResponse200118DataObject$`unitPrice`)) {
        self$`unitPrice` <- InlineResponse200118DataObject$`unitPrice`
      }
      if (!is.null(InlineResponse200118DataObject$`orderStatus`)) {
        self$`orderStatus` <- InlineResponse200118DataObject$`orderStatus`
      }
      if (!is.null(InlineResponse200118DataObject$`createTime`)) {
        self$`createTime` <- InlineResponse200118DataObject$`createTime`
      }
      if (!is.null(InlineResponse200118DataObject$`commission`)) {
        self$`commission` <- InlineResponse200118DataObject$`commission`
      }
      if (!is.null(InlineResponse200118DataObject$`counterPartNickName`)) {
        self$`counterPartNickName` <- InlineResponse200118DataObject$`counterPartNickName`
      }
      if (!is.null(InlineResponse200118DataObject$`advertisementRole`)) {
        self$`advertisementRole` <- InlineResponse200118DataObject$`advertisementRole`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`orderNumber`)) {
        sprintf(
        '"orderNumber":
          "%s"
                ',
        self$`orderNumber`
        )},
        if (!is.null(self$`advNo`)) {
        sprintf(
        '"advNo":
          "%s"
                ',
        self$`advNo`
        )},
        if (!is.null(self$`tradeType`)) {
        sprintf(
        '"tradeType":
          "%s"
                ',
        self$`tradeType`
        )},
        if (!is.null(self$`asset`)) {
        sprintf(
        '"asset":
          "%s"
                ',
        self$`asset`
        )},
        if (!is.null(self$`fiat`)) {
        sprintf(
        '"fiat":
          "%s"
                ',
        self$`fiat`
        )},
        if (!is.null(self$`fiatSymbol`)) {
        sprintf(
        '"fiatSymbol":
          "%s"
                ',
        self$`fiatSymbol`
        )},
        if (!is.null(self$`amount`)) {
        sprintf(
        '"amount":
          "%s"
                ',
        self$`amount`
        )},
        if (!is.null(self$`totalPrice`)) {
        sprintf(
        '"totalPrice":
          "%s"
                ',
        self$`totalPrice`
        )},
        if (!is.null(self$`unitPrice`)) {
        sprintf(
        '"unitPrice":
          "%s"
                ',
        self$`unitPrice`
        )},
        if (!is.null(self$`orderStatus`)) {
        sprintf(
        '"orderStatus":
          "%s"
                ',
        self$`orderStatus`
        )},
        if (!is.null(self$`createTime`)) {
        sprintf(
        '"createTime":
          %d
                ',
        self$`createTime`
        )},
        if (!is.null(self$`commission`)) {
        sprintf(
        '"commission":
          "%s"
                ',
        self$`commission`
        )},
        if (!is.null(self$`counterPartNickName`)) {
        sprintf(
        '"counterPartNickName":
          "%s"
                ',
        self$`counterPartNickName`
        )},
        if (!is.null(self$`advertisementRole`)) {
        sprintf(
        '"advertisementRole":
          "%s"
                ',
        self$`advertisementRole`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InlineResponse200118DataJson) {
      InlineResponse200118DataObject <- jsonlite::fromJSON(InlineResponse200118DataJson)
      self$`orderNumber` <- InlineResponse200118DataObject$`orderNumber`
      self$`advNo` <- InlineResponse200118DataObject$`advNo`
      self$`tradeType` <- InlineResponse200118DataObject$`tradeType`
      self$`asset` <- InlineResponse200118DataObject$`asset`
      self$`fiat` <- InlineResponse200118DataObject$`fiat`
      self$`fiatSymbol` <- InlineResponse200118DataObject$`fiatSymbol`
      self$`amount` <- InlineResponse200118DataObject$`amount`
      self$`totalPrice` <- InlineResponse200118DataObject$`totalPrice`
      self$`unitPrice` <- InlineResponse200118DataObject$`unitPrice`
      self$`orderStatus` <- InlineResponse200118DataObject$`orderStatus`
      self$`createTime` <- InlineResponse200118DataObject$`createTime`
      self$`commission` <- InlineResponse200118DataObject$`commission`
      self$`counterPartNickName` <- InlineResponse200118DataObject$`counterPartNickName`
      self$`advertisementRole` <- InlineResponse200118DataObject$`advertisementRole`
      self
    }
  )
)