R/inline_response200111_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 InlineResponse200111Data
#'
#' @description InlineResponse200111Data Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field fifteenMinHashRate  character 
#'
#' @field dayHashRate  character 
#'
#' @field validNum  integer 
#'
#' @field invalidNum  integer 
#'
#' @field profitToday  \link{InlineResponse200111DataProfitToday} 
#'
#' @field profitYesterday  \link{InlineResponse200111DataProfitToday} 
#'
#' @field userName  character 
#'
#' @field unit  character 
#'
#' @field algo  character 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InlineResponse200111Data <- R6::R6Class(
  'InlineResponse200111Data',
  public = list(
    `fifteenMinHashRate` = NULL,
    `dayHashRate` = NULL,
    `validNum` = NULL,
    `invalidNum` = NULL,
    `profitToday` = NULL,
    `profitYesterday` = NULL,
    `userName` = NULL,
    `unit` = NULL,
    `algo` = NULL,
    initialize = function(
        `fifteenMinHashRate`, `dayHashRate`, `validNum`, `invalidNum`, `profitToday`, `profitYesterday`, `userName`, `unit`, `algo`, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`fifteenMinHashRate`)) {
        stopifnot(is.character(`fifteenMinHashRate`), length(`fifteenMinHashRate`) == 1)
        self$`fifteenMinHashRate` <- `fifteenMinHashRate`
      }
      if (!missing(`dayHashRate`)) {
        stopifnot(is.character(`dayHashRate`), length(`dayHashRate`) == 1)
        self$`dayHashRate` <- `dayHashRate`
      }
      if (!missing(`validNum`)) {
        stopifnot(is.numeric(`validNum`), length(`validNum`) == 1)
        self$`validNum` <- `validNum`
      }
      if (!missing(`invalidNum`)) {
        stopifnot(is.numeric(`invalidNum`), length(`invalidNum`) == 1)
        self$`invalidNum` <- `invalidNum`
      }
      if (!missing(`profitToday`)) {
        stopifnot(R6::is.R6(`profitToday`))
        self$`profitToday` <- `profitToday`
      }
      if (!missing(`profitYesterday`)) {
        stopifnot(R6::is.R6(`profitYesterday`))
        self$`profitYesterday` <- `profitYesterday`
      }
      if (!missing(`userName`)) {
        stopifnot(is.character(`userName`), length(`userName`) == 1)
        self$`userName` <- `userName`
      }
      if (!missing(`unit`)) {
        stopifnot(is.character(`unit`), length(`unit`) == 1)
        self$`unit` <- `unit`
      }
      if (!missing(`algo`)) {
        stopifnot(is.character(`algo`), length(`algo`) == 1)
        self$`algo` <- `algo`
      }
    },
    toJSON = function() {
      InlineResponse200111DataObject <- list()
      if (!is.null(self$`fifteenMinHashRate`)) {
        InlineResponse200111DataObject[['fifteenMinHashRate']] <-
          self$`fifteenMinHashRate`
      }
      if (!is.null(self$`dayHashRate`)) {
        InlineResponse200111DataObject[['dayHashRate']] <-
          self$`dayHashRate`
      }
      if (!is.null(self$`validNum`)) {
        InlineResponse200111DataObject[['validNum']] <-
          self$`validNum`
      }
      if (!is.null(self$`invalidNum`)) {
        InlineResponse200111DataObject[['invalidNum']] <-
          self$`invalidNum`
      }
      if (!is.null(self$`profitToday`)) {
        InlineResponse200111DataObject[['profitToday']] <-
          self$`profitToday`$toJSON()
      }
      if (!is.null(self$`profitYesterday`)) {
        InlineResponse200111DataObject[['profitYesterday']] <-
          self$`profitYesterday`$toJSON()
      }
      if (!is.null(self$`userName`)) {
        InlineResponse200111DataObject[['userName']] <-
          self$`userName`
      }
      if (!is.null(self$`unit`)) {
        InlineResponse200111DataObject[['unit']] <-
          self$`unit`
      }
      if (!is.null(self$`algo`)) {
        InlineResponse200111DataObject[['algo']] <-
          self$`algo`
      }

      InlineResponse200111DataObject
    },
    fromJSON = function(InlineResponse200111DataJson) {
      InlineResponse200111DataObject <- jsonlite::fromJSON(InlineResponse200111DataJson)
      if (!is.null(InlineResponse200111DataObject$`fifteenMinHashRate`)) {
        self$`fifteenMinHashRate` <- InlineResponse200111DataObject$`fifteenMinHashRate`
      }
      if (!is.null(InlineResponse200111DataObject$`dayHashRate`)) {
        self$`dayHashRate` <- InlineResponse200111DataObject$`dayHashRate`
      }
      if (!is.null(InlineResponse200111DataObject$`validNum`)) {
        self$`validNum` <- InlineResponse200111DataObject$`validNum`
      }
      if (!is.null(InlineResponse200111DataObject$`invalidNum`)) {
        self$`invalidNum` <- InlineResponse200111DataObject$`invalidNum`
      }
      if (!is.null(InlineResponse200111DataObject$`profitToday`)) {
        profitTodayObject <- InlineResponse200111DataProfitToday$new()
        profitTodayObject$fromJSON(jsonlite::toJSON(InlineResponse200111DataObject$profitToday, auto_unbox = TRUE, digits = NA))
        self$`profitToday` <- profitTodayObject
      }
      if (!is.null(InlineResponse200111DataObject$`profitYesterday`)) {
        profitYesterdayObject <- InlineResponse200111DataProfitToday$new()
        profitYesterdayObject$fromJSON(jsonlite::toJSON(InlineResponse200111DataObject$profitYesterday, auto_unbox = TRUE, digits = NA))
        self$`profitYesterday` <- profitYesterdayObject
      }
      if (!is.null(InlineResponse200111DataObject$`userName`)) {
        self$`userName` <- InlineResponse200111DataObject$`userName`
      }
      if (!is.null(InlineResponse200111DataObject$`unit`)) {
        self$`unit` <- InlineResponse200111DataObject$`unit`
      }
      if (!is.null(InlineResponse200111DataObject$`algo`)) {
        self$`algo` <- InlineResponse200111DataObject$`algo`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`fifteenMinHashRate`)) {
        sprintf(
        '"fifteenMinHashRate":
          "%s"
                ',
        self$`fifteenMinHashRate`
        )},
        if (!is.null(self$`dayHashRate`)) {
        sprintf(
        '"dayHashRate":
          "%s"
                ',
        self$`dayHashRate`
        )},
        if (!is.null(self$`validNum`)) {
        sprintf(
        '"validNum":
          %d
                ',
        self$`validNum`
        )},
        if (!is.null(self$`invalidNum`)) {
        sprintf(
        '"invalidNum":
          %d
                ',
        self$`invalidNum`
        )},
        if (!is.null(self$`profitToday`)) {
        sprintf(
        '"profitToday":
        %s
        ',
        jsonlite::toJSON(self$`profitToday`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`profitYesterday`)) {
        sprintf(
        '"profitYesterday":
        %s
        ',
        jsonlite::toJSON(self$`profitYesterday`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`userName`)) {
        sprintf(
        '"userName":
          "%s"
                ',
        self$`userName`
        )},
        if (!is.null(self$`unit`)) {
        sprintf(
        '"unit":
          "%s"
                ',
        self$`unit`
        )},
        if (!is.null(self$`algo`)) {
        sprintf(
        '"algo":
          "%s"
                ',
        self$`algo`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InlineResponse200111DataJson) {
      InlineResponse200111DataObject <- jsonlite::fromJSON(InlineResponse200111DataJson)
      self$`fifteenMinHashRate` <- InlineResponse200111DataObject$`fifteenMinHashRate`
      self$`dayHashRate` <- InlineResponse200111DataObject$`dayHashRate`
      self$`validNum` <- InlineResponse200111DataObject$`validNum`
      self$`invalidNum` <- InlineResponse200111DataObject$`invalidNum`
      self$`profitToday` <- InlineResponse200111DataProfitToday$new()$fromJSON(jsonlite::toJSON(InlineResponse200111DataObject$profitToday, auto_unbox = TRUE, digits = NA))
      self$`profitYesterday` <- InlineResponse200111DataProfitToday$new()$fromJSON(jsonlite::toJSON(InlineResponse200111DataObject$profitYesterday, auto_unbox = TRUE, digits = NA))
      self$`userName` <- InlineResponse200111DataObject$`userName`
      self$`unit` <- InlineResponse200111DataObject$`unit`
      self$`algo` <- InlineResponse200111DataObject$`algo`
      self
    }
  )
)