R/inline_response2001_filters.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 InlineResponse2001Filters
#'
#' @description InlineResponse2001Filters Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field filterType  character 
#'
#' @field minPrice  character 
#'
#' @field maxPrice  character 
#'
#' @field tickSize  character 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InlineResponse2001Filters <- R6::R6Class(
  'InlineResponse2001Filters',
  public = list(
    `filterType` = NULL,
    `minPrice` = NULL,
    `maxPrice` = NULL,
    `tickSize` = NULL,
    initialize = function(
        `filterType`, `minPrice`, `maxPrice`, `tickSize`, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`filterType`)) {
        stopifnot(is.character(`filterType`), length(`filterType`) == 1)
        self$`filterType` <- `filterType`
      }
      if (!missing(`minPrice`)) {
        stopifnot(is.character(`minPrice`), length(`minPrice`) == 1)
        self$`minPrice` <- `minPrice`
      }
      if (!missing(`maxPrice`)) {
        stopifnot(is.character(`maxPrice`), length(`maxPrice`) == 1)
        self$`maxPrice` <- `maxPrice`
      }
      if (!missing(`tickSize`)) {
        stopifnot(is.character(`tickSize`), length(`tickSize`) == 1)
        self$`tickSize` <- `tickSize`
      }
    },
    toJSON = function() {
      InlineResponse2001FiltersObject <- list()
      if (!is.null(self$`filterType`)) {
        InlineResponse2001FiltersObject[['filterType']] <-
          self$`filterType`
      }
      if (!is.null(self$`minPrice`)) {
        InlineResponse2001FiltersObject[['minPrice']] <-
          self$`minPrice`
      }
      if (!is.null(self$`maxPrice`)) {
        InlineResponse2001FiltersObject[['maxPrice']] <-
          self$`maxPrice`
      }
      if (!is.null(self$`tickSize`)) {
        InlineResponse2001FiltersObject[['tickSize']] <-
          self$`tickSize`
      }

      InlineResponse2001FiltersObject
    },
    fromJSON = function(InlineResponse2001FiltersJson) {
      InlineResponse2001FiltersObject <- jsonlite::fromJSON(InlineResponse2001FiltersJson)
      if (!is.null(InlineResponse2001FiltersObject$`filterType`)) {
        self$`filterType` <- InlineResponse2001FiltersObject$`filterType`
      }
      if (!is.null(InlineResponse2001FiltersObject$`minPrice`)) {
        self$`minPrice` <- InlineResponse2001FiltersObject$`minPrice`
      }
      if (!is.null(InlineResponse2001FiltersObject$`maxPrice`)) {
        self$`maxPrice` <- InlineResponse2001FiltersObject$`maxPrice`
      }
      if (!is.null(InlineResponse2001FiltersObject$`tickSize`)) {
        self$`tickSize` <- InlineResponse2001FiltersObject$`tickSize`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`filterType`)) {
        sprintf(
        '"filterType":
          "%s"
                ',
        self$`filterType`
        )},
        if (!is.null(self$`minPrice`)) {
        sprintf(
        '"minPrice":
          "%s"
                ',
        self$`minPrice`
        )},
        if (!is.null(self$`maxPrice`)) {
        sprintf(
        '"maxPrice":
          "%s"
                ',
        self$`maxPrice`
        )},
        if (!is.null(self$`tickSize`)) {
        sprintf(
        '"tickSize":
          "%s"
                ',
        self$`tickSize`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InlineResponse2001FiltersJson) {
      InlineResponse2001FiltersObject <- jsonlite::fromJSON(InlineResponse2001FiltersJson)
      self$`filterType` <- InlineResponse2001FiltersObject$`filterType`
      self$`minPrice` <- InlineResponse2001FiltersObject$`minPrice`
      self$`maxPrice` <- InlineResponse2001FiltersObject$`maxPrice`
      self$`tickSize` <- InlineResponse2001FiltersObject$`tickSize`
      self
    }
  )
)