# 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 InlineResponse20014
#'
#' @description InlineResponse20014 Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field assetFullName character
#'
#' @field assetName character
#'
#' @field isBorrowable character
#'
#' @field isMortgageable character
#'
#' @field userMinBorrow character
#'
#' @field userMinRepay character
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InlineResponse20014 <- R6::R6Class(
'InlineResponse20014',
public = list(
`assetFullName` = NULL,
`assetName` = NULL,
`isBorrowable` = NULL,
`isMortgageable` = NULL,
`userMinBorrow` = NULL,
`userMinRepay` = NULL,
initialize = function(
`assetFullName`, `assetName`, `isBorrowable`, `isMortgageable`, `userMinBorrow`, `userMinRepay`, ...
) {
local.optional.var <- list(...)
if (!missing(`assetFullName`)) {
stopifnot(is.character(`assetFullName`), length(`assetFullName`) == 1)
self$`assetFullName` <- `assetFullName`
}
if (!missing(`assetName`)) {
stopifnot(is.character(`assetName`), length(`assetName`) == 1)
self$`assetName` <- `assetName`
}
if (!missing(`isBorrowable`)) {
stopifnot(is.logical(`isBorrowable`), length(`isBorrowable`) == 1)
self$`isBorrowable` <- `isBorrowable`
}
if (!missing(`isMortgageable`)) {
stopifnot(is.logical(`isMortgageable`), length(`isMortgageable`) == 1)
self$`isMortgageable` <- `isMortgageable`
}
if (!missing(`userMinBorrow`)) {
stopifnot(is.character(`userMinBorrow`), length(`userMinBorrow`) == 1)
self$`userMinBorrow` <- `userMinBorrow`
}
if (!missing(`userMinRepay`)) {
stopifnot(is.character(`userMinRepay`), length(`userMinRepay`) == 1)
self$`userMinRepay` <- `userMinRepay`
}
},
toJSON = function() {
InlineResponse20014Object <- list()
if (!is.null(self$`assetFullName`)) {
InlineResponse20014Object[['assetFullName']] <-
self$`assetFullName`
}
if (!is.null(self$`assetName`)) {
InlineResponse20014Object[['assetName']] <-
self$`assetName`
}
if (!is.null(self$`isBorrowable`)) {
InlineResponse20014Object[['isBorrowable']] <-
self$`isBorrowable`
}
if (!is.null(self$`isMortgageable`)) {
InlineResponse20014Object[['isMortgageable']] <-
self$`isMortgageable`
}
if (!is.null(self$`userMinBorrow`)) {
InlineResponse20014Object[['userMinBorrow']] <-
self$`userMinBorrow`
}
if (!is.null(self$`userMinRepay`)) {
InlineResponse20014Object[['userMinRepay']] <-
self$`userMinRepay`
}
InlineResponse20014Object
},
fromJSON = function(InlineResponse20014Json) {
InlineResponse20014Object <- jsonlite::fromJSON(InlineResponse20014Json)
if (!is.null(InlineResponse20014Object$`assetFullName`)) {
self$`assetFullName` <- InlineResponse20014Object$`assetFullName`
}
if (!is.null(InlineResponse20014Object$`assetName`)) {
self$`assetName` <- InlineResponse20014Object$`assetName`
}
if (!is.null(InlineResponse20014Object$`isBorrowable`)) {
self$`isBorrowable` <- InlineResponse20014Object$`isBorrowable`
}
if (!is.null(InlineResponse20014Object$`isMortgageable`)) {
self$`isMortgageable` <- InlineResponse20014Object$`isMortgageable`
}
if (!is.null(InlineResponse20014Object$`userMinBorrow`)) {
self$`userMinBorrow` <- InlineResponse20014Object$`userMinBorrow`
}
if (!is.null(InlineResponse20014Object$`userMinRepay`)) {
self$`userMinRepay` <- InlineResponse20014Object$`userMinRepay`
}
self
},
toJSONString = function() {
jsoncontent <- c(
if (!is.null(self$`assetFullName`)) {
sprintf(
'"assetFullName":
"%s"
',
self$`assetFullName`
)},
if (!is.null(self$`assetName`)) {
sprintf(
'"assetName":
"%s"
',
self$`assetName`
)},
if (!is.null(self$`isBorrowable`)) {
sprintf(
'"isBorrowable":
%s
',
tolower(self$`isBorrowable`)
)},
if (!is.null(self$`isMortgageable`)) {
sprintf(
'"isMortgageable":
%s
',
tolower(self$`isMortgageable`)
)},
if (!is.null(self$`userMinBorrow`)) {
sprintf(
'"userMinBorrow":
"%s"
',
self$`userMinBorrow`
)},
if (!is.null(self$`userMinRepay`)) {
sprintf(
'"userMinRepay":
"%s"
',
self$`userMinRepay`
)}
)
jsoncontent <- paste(jsoncontent, collapse = ",")
paste('{', jsoncontent, '}', sep = "")
},
fromJSONString = function(InlineResponse20014Json) {
InlineResponse20014Object <- jsonlite::fromJSON(InlineResponse20014Json)
self$`assetFullName` <- InlineResponse20014Object$`assetFullName`
self$`assetName` <- InlineResponse20014Object$`assetName`
self$`isBorrowable` <- InlineResponse20014Object$`isBorrowable`
self$`isMortgageable` <- InlineResponse20014Object$`isMortgageable`
self$`userMinBorrow` <- InlineResponse20014Object$`userMinBorrow`
self$`userMinRepay` <- InlineResponse20014Object$`userMinRepay`
self
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.