R/invoice_item_out.R

In namsor/namsor-r-sdk2: R Package Client for NamSor API v2

# NamSor API v2
#
# NamSor API v2 : enpoints to process personal names (gender, cultural origin or ethnicity) in all alphabets or languages. Use GET methods for small tests, but prefer POST methods for higher throughput (batch processing of up to 100 names at a time). Need something you can't find here? We have many more features coming soon. Let us know, we'll do our best to add it! 
#
# The version of the OpenAPI document: 2.0.10
# Contact: contact@namsor.com
# Generated by: https://openapi-generator.tech

#' @docType class
#' @title InvoiceItemOut
#' @description InvoiceItemOut Class
#' @format An \code{R6Class} generator object
#' @field itemId  character [optional]
#'
#' @field amount  integer [optional]
#'
#' @field currency  character [optional]
#'
#' @field description  character [optional]
#'
#' @field quantity  integer [optional]
#'
#' @field subscription  character [optional]
#'
#' @field subscriptionItem  character [optional]
#'
#' @field invoiceItemType  character [optional]
#'
#' @field planNickname  character [optional]
#'
#' @field planDesc  character [optional]
#'
#' @field planName  character [optional]
#'
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InvoiceItemOut <- R6::R6Class(
  'InvoiceItemOut',
  public = list(
    `itemId` = NULL,
    `amount` = NULL,
    `currency` = NULL,
    `description` = NULL,
    `quantity` = NULL,
    `subscription` = NULL,
    `subscriptionItem` = NULL,
    `invoiceItemType` = NULL,
    `planNickname` = NULL,
    `planDesc` = NULL,
    `planName` = NULL,
    initialize = function(`itemId`=NULL, `amount`=NULL, `currency`=NULL, `description`=NULL, `quantity`=NULL, `subscription`=NULL, `subscriptionItem`=NULL, `invoiceItemType`=NULL, `planNickname`=NULL, `planDesc`=NULL, `planName`=NULL, ...){
      local.optional.var <- list(...)
      if (!is.null(`itemId`)) {
        stopifnot(is.character(`itemId`), length(`itemId`) == 1)
        self$`itemId` <- `itemId`
      }
      if (!is.null(`amount`)) {
        stopifnot(is.numeric(`amount`), length(`amount`) == 1)
        self$`amount` <- `amount`
      }
      if (!is.null(`currency`)) {
        stopifnot(is.character(`currency`), length(`currency`) == 1)
        self$`currency` <- `currency`
      }
      if (!is.null(`description`)) {
        stopifnot(is.character(`description`), length(`description`) == 1)
        self$`description` <- `description`
      }
      if (!is.null(`quantity`)) {
        stopifnot(is.numeric(`quantity`), length(`quantity`) == 1)
        self$`quantity` <- `quantity`
      }
      if (!is.null(`subscription`)) {
        stopifnot(is.character(`subscription`), length(`subscription`) == 1)
        self$`subscription` <- `subscription`
      }
      if (!is.null(`subscriptionItem`)) {
        stopifnot(is.character(`subscriptionItem`), length(`subscriptionItem`) == 1)
        self$`subscriptionItem` <- `subscriptionItem`
      }
      if (!is.null(`invoiceItemType`)) {
        stopifnot(is.character(`invoiceItemType`), length(`invoiceItemType`) == 1)
        self$`invoiceItemType` <- `invoiceItemType`
      }
      if (!is.null(`planNickname`)) {
        stopifnot(is.character(`planNickname`), length(`planNickname`) == 1)
        self$`planNickname` <- `planNickname`
      }
      if (!is.null(`planDesc`)) {
        stopifnot(is.character(`planDesc`), length(`planDesc`) == 1)
        self$`planDesc` <- `planDesc`
      }
      if (!is.null(`planName`)) {
        stopifnot(is.character(`planName`), length(`planName`) == 1)
        self$`planName` <- `planName`
      }
    },
    toJSON = function() {
      InvoiceItemOutObject <- list()
      if (!is.null(self$`itemId`)) {
        InvoiceItemOutObject[['itemId']] <-
          self$`itemId`
      }
      if (!is.null(self$`amount`)) {
        InvoiceItemOutObject[['amount']] <-
          self$`amount`
      }
      if (!is.null(self$`currency`)) {
        InvoiceItemOutObject[['currency']] <-
          self$`currency`
      }
      if (!is.null(self$`description`)) {
        InvoiceItemOutObject[['description']] <-
          self$`description`
      }
      if (!is.null(self$`quantity`)) {
        InvoiceItemOutObject[['quantity']] <-
          self$`quantity`
      }
      if (!is.null(self$`subscription`)) {
        InvoiceItemOutObject[['subscription']] <-
          self$`subscription`
      }
      if (!is.null(self$`subscriptionItem`)) {
        InvoiceItemOutObject[['subscriptionItem']] <-
          self$`subscriptionItem`
      }
      if (!is.null(self$`invoiceItemType`)) {
        InvoiceItemOutObject[['invoiceItemType']] <-
          self$`invoiceItemType`
      }
      if (!is.null(self$`planNickname`)) {
        InvoiceItemOutObject[['planNickname']] <-
          self$`planNickname`
      }
      if (!is.null(self$`planDesc`)) {
        InvoiceItemOutObject[['planDesc']] <-
          self$`planDesc`
      }
      if (!is.null(self$`planName`)) {
        InvoiceItemOutObject[['planName']] <-
          self$`planName`
      }

      InvoiceItemOutObject
    },
    fromJSON = function(InvoiceItemOutJson) {
      InvoiceItemOutObject <- jsonlite::fromJSON(InvoiceItemOutJson)
      if (!is.null(InvoiceItemOutObject$`itemId`)) {
        self$`itemId` <- InvoiceItemOutObject$`itemId`
      }
      if (!is.null(InvoiceItemOutObject$`amount`)) {
        self$`amount` <- InvoiceItemOutObject$`amount`
      }
      if (!is.null(InvoiceItemOutObject$`currency`)) {
        self$`currency` <- InvoiceItemOutObject$`currency`
      }
      if (!is.null(InvoiceItemOutObject$`description`)) {
        self$`description` <- InvoiceItemOutObject$`description`
      }
      if (!is.null(InvoiceItemOutObject$`quantity`)) {
        self$`quantity` <- InvoiceItemOutObject$`quantity`
      }
      if (!is.null(InvoiceItemOutObject$`subscription`)) {
        self$`subscription` <- InvoiceItemOutObject$`subscription`
      }
      if (!is.null(InvoiceItemOutObject$`subscriptionItem`)) {
        self$`subscriptionItem` <- InvoiceItemOutObject$`subscriptionItem`
      }
      if (!is.null(InvoiceItemOutObject$`invoiceItemType`)) {
        self$`invoiceItemType` <- InvoiceItemOutObject$`invoiceItemType`
      }
      if (!is.null(InvoiceItemOutObject$`planNickname`)) {
        self$`planNickname` <- InvoiceItemOutObject$`planNickname`
      }
      if (!is.null(InvoiceItemOutObject$`planDesc`)) {
        self$`planDesc` <- InvoiceItemOutObject$`planDesc`
      }
      if (!is.null(InvoiceItemOutObject$`planName`)) {
        self$`planName` <- InvoiceItemOutObject$`planName`
      }
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`itemId`)) {
        sprintf(
        '"itemId":
          "%s"
                ',
        self$`itemId`
        )},
        if (!is.null(self$`amount`)) {
        sprintf(
        '"amount":
          %d
                ',
        self$`amount`
        )},
        if (!is.null(self$`currency`)) {
        sprintf(
        '"currency":
          "%s"
                ',
        self$`currency`
        )},
        if (!is.null(self$`description`)) {
        sprintf(
        '"description":
          "%s"
                ',
        self$`description`
        )},
        if (!is.null(self$`quantity`)) {
        sprintf(
        '"quantity":
          %d
                ',
        self$`quantity`
        )},
        if (!is.null(self$`subscription`)) {
        sprintf(
        '"subscription":
          "%s"
                ',
        self$`subscription`
        )},
        if (!is.null(self$`subscriptionItem`)) {
        sprintf(
        '"subscriptionItem":
          "%s"
                ',
        self$`subscriptionItem`
        )},
        if (!is.null(self$`invoiceItemType`)) {
        sprintf(
        '"invoiceItemType":
          "%s"
                ',
        self$`invoiceItemType`
        )},
        if (!is.null(self$`planNickname`)) {
        sprintf(
        '"planNickname":
          "%s"
                ',
        self$`planNickname`
        )},
        if (!is.null(self$`planDesc`)) {
        sprintf(
        '"planDesc":
          "%s"
                ',
        self$`planDesc`
        )},
        if (!is.null(self$`planName`)) {
        sprintf(
        '"planName":
          "%s"
                ',
        self$`planName`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InvoiceItemOutJson) {
      InvoiceItemOutObject <- jsonlite::fromJSON(InvoiceItemOutJson)
      self$`itemId` <- InvoiceItemOutObject$`itemId`
      self$`amount` <- InvoiceItemOutObject$`amount`
      self$`currency` <- InvoiceItemOutObject$`currency`
      self$`description` <- InvoiceItemOutObject$`description`
      self$`quantity` <- InvoiceItemOutObject$`quantity`
      self$`subscription` <- InvoiceItemOutObject$`subscription`
      self$`subscriptionItem` <- InvoiceItemOutObject$`subscriptionItem`
      self$`invoiceItemType` <- InvoiceItemOutObject$`invoiceItemType`
      self$`planNickname` <- InvoiceItemOutObject$`planNickname`
      self$`planDesc` <- InvoiceItemOutObject$`planDesc`
      self$`planName` <- InvoiceItemOutObject$`planName`
      self
    }
  )
)