R/agg_trade.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 AggTrade
#'
#' @description AggTrade Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field a  integer 
#'
#' @field p  character 
#'
#' @field q  character 
#'
#' @field f  integer 
#'
#' @field l  integer 
#'
#' @field T  character 
#'
#' @field m  character 
#'
#' @field M  character 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
AggTrade <- R6::R6Class(
  'AggTrade',
  public = list(
    `a` = NULL,
    `p` = NULL,
    `q` = NULL,
    `f` = NULL,
    `l` = NULL,
    `T` = NULL,
    `m` = NULL,
    `M` = NULL,
    initialize = function(
        `a`, `p`, `q`, `f`, `l`, `T`, `m`, `M`, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`a`)) {
        stopifnot(is.numeric(`a`), length(`a`) == 1)
        self$`a` <- `a`
      }
      if (!missing(`p`)) {
        stopifnot(is.character(`p`), length(`p`) == 1)
        self$`p` <- `p`
      }
      if (!missing(`q`)) {
        stopifnot(is.character(`q`), length(`q`) == 1)
        self$`q` <- `q`
      }
      if (!missing(`f`)) {
        stopifnot(is.numeric(`f`), length(`f`) == 1)
        self$`f` <- `f`
      }
      if (!missing(`l`)) {
        stopifnot(is.numeric(`l`), length(`l`) == 1)
        self$`l` <- `l`
      }
      if (!missing(`T`)) {
        stopifnot(is.logical(`T`), length(`T`) == 1)
        self$`T` <- `T`
      }
      if (!missing(`m`)) {
        stopifnot(is.logical(`m`), length(`m`) == 1)
        self$`m` <- `m`
      }
      if (!missing(`M`)) {
        stopifnot(is.logical(`M`), length(`M`) == 1)
        self$`M` <- `M`
      }
    },
    toJSON = function() {
      AggTradeObject <- list()
      if (!is.null(self$`a`)) {
        AggTradeObject[['a']] <-
          self$`a`
      }
      if (!is.null(self$`p`)) {
        AggTradeObject[['p']] <-
          self$`p`
      }
      if (!is.null(self$`q`)) {
        AggTradeObject[['q']] <-
          self$`q`
      }
      if (!is.null(self$`f`)) {
        AggTradeObject[['f']] <-
          self$`f`
      }
      if (!is.null(self$`l`)) {
        AggTradeObject[['l']] <-
          self$`l`
      }
      if (!is.null(self$`T`)) {
        AggTradeObject[['T']] <-
          self$`T`
      }
      if (!is.null(self$`m`)) {
        AggTradeObject[['m']] <-
          self$`m`
      }
      if (!is.null(self$`M`)) {
        AggTradeObject[['M']] <-
          self$`M`
      }

      AggTradeObject
    },
    fromJSON = function(AggTradeJson) {
      AggTradeObject <- jsonlite::fromJSON(AggTradeJson)
      if (!is.null(AggTradeObject$`a`)) {
        self$`a` <- AggTradeObject$`a`
      }
      if (!is.null(AggTradeObject$`p`)) {
        self$`p` <- AggTradeObject$`p`
      }
      if (!is.null(AggTradeObject$`q`)) {
        self$`q` <- AggTradeObject$`q`
      }
      if (!is.null(AggTradeObject$`f`)) {
        self$`f` <- AggTradeObject$`f`
      }
      if (!is.null(AggTradeObject$`l`)) {
        self$`l` <- AggTradeObject$`l`
      }
      if (!is.null(AggTradeObject$`T`)) {
        self$`T` <- AggTradeObject$`T`
      }
      if (!is.null(AggTradeObject$`m`)) {
        self$`m` <- AggTradeObject$`m`
      }
      if (!is.null(AggTradeObject$`M`)) {
        self$`M` <- AggTradeObject$`M`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`a`)) {
        sprintf(
        '"a":
          %d
                ',
        self$`a`
        )},
        if (!is.null(self$`p`)) {
        sprintf(
        '"p":
          "%s"
                ',
        self$`p`
        )},
        if (!is.null(self$`q`)) {
        sprintf(
        '"q":
          "%s"
                ',
        self$`q`
        )},
        if (!is.null(self$`f`)) {
        sprintf(
        '"f":
          %d
                ',
        self$`f`
        )},
        if (!is.null(self$`l`)) {
        sprintf(
        '"l":
          %d
                ',
        self$`l`
        )},
        if (!is.null(self$`T`)) {
        sprintf(
        '"T":
          %s
                ',
        tolower(self$`T`)
        )},
        if (!is.null(self$`m`)) {
        sprintf(
        '"m":
          %s
                ',
        tolower(self$`m`)
        )},
        if (!is.null(self$`M`)) {
        sprintf(
        '"M":
          %s
                ',
        tolower(self$`M`)
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(AggTradeJson) {
      AggTradeObject <- jsonlite::fromJSON(AggTradeJson)
      self$`a` <- AggTradeObject$`a`
      self$`p` <- AggTradeObject$`p`
      self$`q` <- AggTradeObject$`q`
      self$`f` <- AggTradeObject$`f`
      self$`l` <- AggTradeObject$`l`
      self$`T` <- AggTradeObject$`T`
      self$`m` <- AggTradeObject$`m`
      self$`M` <- AggTradeObject$`M`
      self
    }
  )
)