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 InvoiceOut
#' @description InvoiceOut Class
#' @format An \code{R6Class} generator object
#' @field items  list( \link{InvoiceItemOut} ) [optional]
#'
#' @field userId  character [optional]
#'
#' @field invoiceId  character [optional]
#'
#' @field isStriped  character [optional]
#'
#' @field stripeCustomerId  character [optional]
#'
#' @field amountDue  integer [optional]
#'
#' @field amountPaid  integer [optional]
#'
#' @field amountRemaining  integer [optional]
#'
#' @field attempted  character [optional]
#'
#' @field currency  character [optional]
#'
#' @field invoiceDate  character [optional]
#'
#' @field dueDate  character [optional]
#'
#' @field description  character [optional]
#'
#' @field invoicePdf  character [optional]
#'
#' @field periodStart  character [optional]
#'
#' @field periodEnd  character [optional]
#'
#' @field receiptNumber  character [optional]
#'
#' @field invoiceStatus  character [optional]
#'
#' @field subTotal  integer [optional]
#'
#' @field tax  integer [optional]
#'
#' @field taxPercent  integer [optional]
#'
#' @field total  integer [optional]
#'
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
InvoiceOut <- R6::R6Class(
  'InvoiceOut',
  public = list(
    `items` = NULL,
    `userId` = NULL,
    `invoiceId` = NULL,
    `isStriped` = NULL,
    `stripeCustomerId` = NULL,
    `amountDue` = NULL,
    `amountPaid` = NULL,
    `amountRemaining` = NULL,
    `attempted` = NULL,
    `currency` = NULL,
    `invoiceDate` = NULL,
    `dueDate` = NULL,
    `description` = NULL,
    `invoicePdf` = NULL,
    `periodStart` = NULL,
    `periodEnd` = NULL,
    `receiptNumber` = NULL,
    `invoiceStatus` = NULL,
    `subTotal` = NULL,
    `tax` = NULL,
    `taxPercent` = NULL,
    `total` = NULL,
    initialize = function(`items`=NULL, `userId`=NULL, `invoiceId`=NULL, `isStriped`=NULL, `stripeCustomerId`=NULL, `amountDue`=NULL, `amountPaid`=NULL, `amountRemaining`=NULL, `attempted`=NULL, `currency`=NULL, `invoiceDate`=NULL, `dueDate`=NULL, `description`=NULL, `invoicePdf`=NULL, `periodStart`=NULL, `periodEnd`=NULL, `receiptNumber`=NULL, `invoiceStatus`=NULL, `subTotal`=NULL, `tax`=NULL, `taxPercent`=NULL, `total`=NULL, ...){
      local.optional.var <- list(...)
      if (!is.null(`items`)) {
        stopifnot(is.vector(`items`), length(`items`) != 0)
        sapply(`items`, function(x) stopifnot(R6::is.R6(x)))
        self$`items` <- `items`
      }
      if (!is.null(`userId`)) {
        stopifnot(is.character(`userId`), length(`userId`) == 1)
        self$`userId` <- `userId`
      }
      if (!is.null(`invoiceId`)) {
        stopifnot(is.character(`invoiceId`), length(`invoiceId`) == 1)
        self$`invoiceId` <- `invoiceId`
      }
      if (!is.null(`isStriped`)) {
        self$`isStriped` <- `isStriped`
      }
      if (!is.null(`stripeCustomerId`)) {
        stopifnot(is.character(`stripeCustomerId`), length(`stripeCustomerId`) == 1)
        self$`stripeCustomerId` <- `stripeCustomerId`
      }
      if (!is.null(`amountDue`)) {
        stopifnot(is.numeric(`amountDue`), length(`amountDue`) == 1)
        self$`amountDue` <- `amountDue`
      }
      if (!is.null(`amountPaid`)) {
        stopifnot(is.numeric(`amountPaid`), length(`amountPaid`) == 1)
        self$`amountPaid` <- `amountPaid`
      }
      if (!is.null(`amountRemaining`)) {
        stopifnot(is.numeric(`amountRemaining`), length(`amountRemaining`) == 1)
        self$`amountRemaining` <- `amountRemaining`
      }
      if (!is.null(`attempted`)) {
        self$`attempted` <- `attempted`
      }
      if (!is.null(`currency`)) {
        stopifnot(is.character(`currency`), length(`currency`) == 1)
        self$`currency` <- `currency`
      }
      if (!is.null(`invoiceDate`)) {
        stopifnot(is.character(`invoiceDate`), length(`invoiceDate`) == 1)
        self$`invoiceDate` <- `invoiceDate`
      }
      if (!is.null(`dueDate`)) {
        stopifnot(is.character(`dueDate`), length(`dueDate`) == 1)
        self$`dueDate` <- `dueDate`
      }
      if (!is.null(`description`)) {
        stopifnot(is.character(`description`), length(`description`) == 1)
        self$`description` <- `description`
      }
      if (!is.null(`invoicePdf`)) {
        stopifnot(is.character(`invoicePdf`), length(`invoicePdf`) == 1)
        self$`invoicePdf` <- `invoicePdf`
      }
      if (!is.null(`periodStart`)) {
        stopifnot(is.character(`periodStart`), length(`periodStart`) == 1)
        self$`periodStart` <- `periodStart`
      }
      if (!is.null(`periodEnd`)) {
        stopifnot(is.character(`periodEnd`), length(`periodEnd`) == 1)
        self$`periodEnd` <- `periodEnd`
      }
      if (!is.null(`receiptNumber`)) {
        stopifnot(is.character(`receiptNumber`), length(`receiptNumber`) == 1)
        self$`receiptNumber` <- `receiptNumber`
      }
      if (!is.null(`invoiceStatus`)) {
        stopifnot(is.character(`invoiceStatus`), length(`invoiceStatus`) == 1)
        self$`invoiceStatus` <- `invoiceStatus`
      }
      if (!is.null(`subTotal`)) {
        stopifnot(is.numeric(`subTotal`), length(`subTotal`) == 1)
        self$`subTotal` <- `subTotal`
      }
      if (!is.null(`tax`)) {
        stopifnot(is.numeric(`tax`), length(`tax`) == 1)
        self$`tax` <- `tax`
      }
      if (!is.null(`taxPercent`)) {
        stopifnot(is.numeric(`taxPercent`), length(`taxPercent`) == 1)
        self$`taxPercent` <- `taxPercent`
      }
      if (!is.null(`total`)) {
        stopifnot(is.numeric(`total`), length(`total`) == 1)
        self$`total` <- `total`
      }
    },
    toJSON = function() {
      InvoiceOutObject <- list()
      if (!is.null(self$`items`)) {
        InvoiceOutObject[['items']] <-
          lapply(self$`items`, function(x) x$toJSON())
      }
      if (!is.null(self$`userId`)) {
        InvoiceOutObject[['userId']] <-
          self$`userId`
      }
      if (!is.null(self$`invoiceId`)) {
        InvoiceOutObject[['invoiceId']] <-
          self$`invoiceId`
      }
      if (!is.null(self$`isStriped`)) {
        InvoiceOutObject[['isStriped']] <-
          self$`isStriped`
      }
      if (!is.null(self$`stripeCustomerId`)) {
        InvoiceOutObject[['stripeCustomerId']] <-
          self$`stripeCustomerId`
      }
      if (!is.null(self$`amountDue`)) {
        InvoiceOutObject[['amountDue']] <-
          self$`amountDue`
      }
      if (!is.null(self$`amountPaid`)) {
        InvoiceOutObject[['amountPaid']] <-
          self$`amountPaid`
      }
      if (!is.null(self$`amountRemaining`)) {
        InvoiceOutObject[['amountRemaining']] <-
          self$`amountRemaining`
      }
      if (!is.null(self$`attempted`)) {
        InvoiceOutObject[['attempted']] <-
          self$`attempted`
      }
      if (!is.null(self$`currency`)) {
        InvoiceOutObject[['currency']] <-
          self$`currency`
      }
      if (!is.null(self$`invoiceDate`)) {
        InvoiceOutObject[['invoiceDate']] <-
          self$`invoiceDate`
      }
      if (!is.null(self$`dueDate`)) {
        InvoiceOutObject[['dueDate']] <-
          self$`dueDate`
      }
      if (!is.null(self$`description`)) {
        InvoiceOutObject[['description']] <-
          self$`description`
      }
      if (!is.null(self$`invoicePdf`)) {
        InvoiceOutObject[['invoicePdf']] <-
          self$`invoicePdf`
      }
      if (!is.null(self$`periodStart`)) {
        InvoiceOutObject[['periodStart']] <-
          self$`periodStart`
      }
      if (!is.null(self$`periodEnd`)) {
        InvoiceOutObject[['periodEnd']] <-
          self$`periodEnd`
      }
      if (!is.null(self$`receiptNumber`)) {
        InvoiceOutObject[['receiptNumber']] <-
          self$`receiptNumber`
      }
      if (!is.null(self$`invoiceStatus`)) {
        InvoiceOutObject[['invoiceStatus']] <-
          self$`invoiceStatus`
      }
      if (!is.null(self$`subTotal`)) {
        InvoiceOutObject[['subTotal']] <-
          self$`subTotal`
      }
      if (!is.null(self$`tax`)) {
        InvoiceOutObject[['tax']] <-
          self$`tax`
      }
      if (!is.null(self$`taxPercent`)) {
        InvoiceOutObject[['taxPercent']] <-
          self$`taxPercent`
      }
      if (!is.null(self$`total`)) {
        InvoiceOutObject[['total']] <-
          self$`total`
      }

      InvoiceOutObject
    },
    fromJSON = function(InvoiceOutJson) {
      InvoiceOutObject <- jsonlite::fromJSON(InvoiceOutJson)
      if (!is.null(InvoiceOutObject$`items`)) {
        self$`items` <- ApiClient$new()$deserializeObj(InvoiceOutObject$`items`, "array[InvoiceItemOut]", loadNamespace("namsor"))
      }
      if (!is.null(InvoiceOutObject$`userId`)) {
        self$`userId` <- InvoiceOutObject$`userId`
      }
      if (!is.null(InvoiceOutObject$`invoiceId`)) {
        self$`invoiceId` <- InvoiceOutObject$`invoiceId`
      }
      if (!is.null(InvoiceOutObject$`isStriped`)) {
        self$`isStriped` <- InvoiceOutObject$`isStriped`
      }
      if (!is.null(InvoiceOutObject$`stripeCustomerId`)) {
        self$`stripeCustomerId` <- InvoiceOutObject$`stripeCustomerId`
      }
      if (!is.null(InvoiceOutObject$`amountDue`)) {
        self$`amountDue` <- InvoiceOutObject$`amountDue`
      }
      if (!is.null(InvoiceOutObject$`amountPaid`)) {
        self$`amountPaid` <- InvoiceOutObject$`amountPaid`
      }
      if (!is.null(InvoiceOutObject$`amountRemaining`)) {
        self$`amountRemaining` <- InvoiceOutObject$`amountRemaining`
      }
      if (!is.null(InvoiceOutObject$`attempted`)) {
        self$`attempted` <- InvoiceOutObject$`attempted`
      }
      if (!is.null(InvoiceOutObject$`currency`)) {
        self$`currency` <- InvoiceOutObject$`currency`
      }
      if (!is.null(InvoiceOutObject$`invoiceDate`)) {
        self$`invoiceDate` <- InvoiceOutObject$`invoiceDate`
      }
      if (!is.null(InvoiceOutObject$`dueDate`)) {
        self$`dueDate` <- InvoiceOutObject$`dueDate`
      }
      if (!is.null(InvoiceOutObject$`description`)) {
        self$`description` <- InvoiceOutObject$`description`
      }
      if (!is.null(InvoiceOutObject$`invoicePdf`)) {
        self$`invoicePdf` <- InvoiceOutObject$`invoicePdf`
      }
      if (!is.null(InvoiceOutObject$`periodStart`)) {
        self$`periodStart` <- InvoiceOutObject$`periodStart`
      }
      if (!is.null(InvoiceOutObject$`periodEnd`)) {
        self$`periodEnd` <- InvoiceOutObject$`periodEnd`
      }
      if (!is.null(InvoiceOutObject$`receiptNumber`)) {
        self$`receiptNumber` <- InvoiceOutObject$`receiptNumber`
      }
      if (!is.null(InvoiceOutObject$`invoiceStatus`)) {
        self$`invoiceStatus` <- InvoiceOutObject$`invoiceStatus`
      }
      if (!is.null(InvoiceOutObject$`subTotal`)) {
        self$`subTotal` <- InvoiceOutObject$`subTotal`
      }
      if (!is.null(InvoiceOutObject$`tax`)) {
        self$`tax` <- InvoiceOutObject$`tax`
      }
      if (!is.null(InvoiceOutObject$`taxPercent`)) {
        self$`taxPercent` <- InvoiceOutObject$`taxPercent`
      }
      if (!is.null(InvoiceOutObject$`total`)) {
        self$`total` <- InvoiceOutObject$`total`
      }
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`items`)) {
        sprintf(
        '"items":
        [%s]
',
        paste(sapply(self$`items`, function(x) jsonlite::toJSON(x$toJSON(), auto_unbox=TRUE, digits = NA)), collapse=",")
        )},
        if (!is.null(self$`userId`)) {
        sprintf(
        '"userId":
          "%s"
                ',
        self$`userId`
        )},
        if (!is.null(self$`invoiceId`)) {
        sprintf(
        '"invoiceId":
          "%s"
                ',
        self$`invoiceId`
        )},
        if (!is.null(self$`isStriped`)) {
        sprintf(
        '"isStriped":
          "%s"
                ',
        self$`isStriped`
        )},
        if (!is.null(self$`stripeCustomerId`)) {
        sprintf(
        '"stripeCustomerId":
          "%s"
                ',
        self$`stripeCustomerId`
        )},
        if (!is.null(self$`amountDue`)) {
        sprintf(
        '"amountDue":
          %d
                ',
        self$`amountDue`
        )},
        if (!is.null(self$`amountPaid`)) {
        sprintf(
        '"amountPaid":
          %d
                ',
        self$`amountPaid`
        )},
        if (!is.null(self$`amountRemaining`)) {
        sprintf(
        '"amountRemaining":
          %d
                ',
        self$`amountRemaining`
        )},
        if (!is.null(self$`attempted`)) {
        sprintf(
        '"attempted":
          "%s"
                ',
        self$`attempted`
        )},
        if (!is.null(self$`currency`)) {
        sprintf(
        '"currency":
          "%s"
                ',
        self$`currency`
        )},
        if (!is.null(self$`invoiceDate`)) {
        sprintf(
        '"invoiceDate":
          "%s"
                ',
        self$`invoiceDate`
        )},
        if (!is.null(self$`dueDate`)) {
        sprintf(
        '"dueDate":
          "%s"
                ',
        self$`dueDate`
        )},
        if (!is.null(self$`description`)) {
        sprintf(
        '"description":
          "%s"
                ',
        self$`description`
        )},
        if (!is.null(self$`invoicePdf`)) {
        sprintf(
        '"invoicePdf":
          "%s"
                ',
        self$`invoicePdf`
        )},
        if (!is.null(self$`periodStart`)) {
        sprintf(
        '"periodStart":
          "%s"
                ',
        self$`periodStart`
        )},
        if (!is.null(self$`periodEnd`)) {
        sprintf(
        '"periodEnd":
          "%s"
                ',
        self$`periodEnd`
        )},
        if (!is.null(self$`receiptNumber`)) {
        sprintf(
        '"receiptNumber":
          "%s"
                ',
        self$`receiptNumber`
        )},
        if (!is.null(self$`invoiceStatus`)) {
        sprintf(
        '"invoiceStatus":
          "%s"
                ',
        self$`invoiceStatus`
        )},
        if (!is.null(self$`subTotal`)) {
        sprintf(
        '"subTotal":
          %d
                ',
        self$`subTotal`
        )},
        if (!is.null(self$`tax`)) {
        sprintf(
        '"tax":
          %d
                ',
        self$`tax`
        )},
        if (!is.null(self$`taxPercent`)) {
        sprintf(
        '"taxPercent":
          %d
                ',
        self$`taxPercent`
        )},
        if (!is.null(self$`total`)) {
        sprintf(
        '"total":
          %d
                ',
        self$`total`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(InvoiceOutJson) {
      InvoiceOutObject <- jsonlite::fromJSON(InvoiceOutJson)
      self$`items` <- ApiClient$new()$deserializeObj(InvoiceOutObject$`items`, "array[InvoiceItemOut]", loadNamespace("namsor"))
      self$`userId` <- InvoiceOutObject$`userId`
      self$`invoiceId` <- InvoiceOutObject$`invoiceId`
      self$`isStriped` <- InvoiceOutObject$`isStriped`
      self$`stripeCustomerId` <- InvoiceOutObject$`stripeCustomerId`
      self$`amountDue` <- InvoiceOutObject$`amountDue`
      self$`amountPaid` <- InvoiceOutObject$`amountPaid`
      self$`amountRemaining` <- InvoiceOutObject$`amountRemaining`
      self$`attempted` <- InvoiceOutObject$`attempted`
      self$`currency` <- InvoiceOutObject$`currency`
      self$`invoiceDate` <- InvoiceOutObject$`invoiceDate`
      self$`dueDate` <- InvoiceOutObject$`dueDate`
      self$`description` <- InvoiceOutObject$`description`
      self$`invoicePdf` <- InvoiceOutObject$`invoicePdf`
      self$`periodStart` <- InvoiceOutObject$`periodStart`
      self$`periodEnd` <- InvoiceOutObject$`periodEnd`
      self$`receiptNumber` <- InvoiceOutObject$`receiptNumber`
      self$`invoiceStatus` <- InvoiceOutObject$`invoiceStatus`
      self$`subTotal` <- InvoiceOutObject$`subTotal`
      self$`tax` <- InvoiceOutObject$`tax`
      self$`taxPercent` <- InvoiceOutObject$`taxPercent`
      self$`total` <- InvoiceOutObject$`total`
      self
    }
  )
)