R/source_metrics_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 SourceMetricsOut
#' @description SourceMetricsOut Class
#' @format An \code{R6Class} generator object
#' @field classifierName  character [optional]
#'
#' @field source  \link{APIKeyOut} [optional]
#'
#' @field aiEstimateTotal  integer [optional]
#'
#' @field aiEstimatePrecision  numeric [optional]
#'
#' @field aiEstimateRecall  numeric [optional]
#'
#' @field metricTimeStamp  integer [optional]
#'
#' @field aiStartTime  integer [optional]
#'
#' @field aiLearnTotal  integer [optional]
#'
#' @field snapshotDate  integer [optional]
#'
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
SourceMetricsOut <- R6::R6Class(
  'SourceMetricsOut',
  public = list(
    `classifierName` = NULL,
    `source` = NULL,
    `aiEstimateTotal` = NULL,
    `aiEstimatePrecision` = NULL,
    `aiEstimateRecall` = NULL,
    `metricTimeStamp` = NULL,
    `aiStartTime` = NULL,
    `aiLearnTotal` = NULL,
    `snapshotDate` = NULL,
    initialize = function(`classifierName`=NULL, `source`=NULL, `aiEstimateTotal`=NULL, `aiEstimatePrecision`=NULL, `aiEstimateRecall`=NULL, `metricTimeStamp`=NULL, `aiStartTime`=NULL, `aiLearnTotal`=NULL, `snapshotDate`=NULL, ...){
      local.optional.var <- list(...)
      if (!is.null(`classifierName`)) {
        stopifnot(is.character(`classifierName`), length(`classifierName`) == 1)
        self$`classifierName` <- `classifierName`
      }
      if (!is.null(`source`)) {
        stopifnot(R6::is.R6(`source`))
        self$`source` <- `source`
      }
      if (!is.null(`aiEstimateTotal`)) {
        stopifnot(is.numeric(`aiEstimateTotal`), length(`aiEstimateTotal`) == 1)
        self$`aiEstimateTotal` <- `aiEstimateTotal`
      }
      if (!is.null(`aiEstimatePrecision`)) {
        stopifnot(is.numeric(`aiEstimatePrecision`), length(`aiEstimatePrecision`) == 1)
        self$`aiEstimatePrecision` <- `aiEstimatePrecision`
      }
      if (!is.null(`aiEstimateRecall`)) {
        stopifnot(is.numeric(`aiEstimateRecall`), length(`aiEstimateRecall`) == 1)
        self$`aiEstimateRecall` <- `aiEstimateRecall`
      }
      if (!is.null(`metricTimeStamp`)) {
        stopifnot(is.numeric(`metricTimeStamp`), length(`metricTimeStamp`) == 1)
        self$`metricTimeStamp` <- `metricTimeStamp`
      }
      if (!is.null(`aiStartTime`)) {
        stopifnot(is.numeric(`aiStartTime`), length(`aiStartTime`) == 1)
        self$`aiStartTime` <- `aiStartTime`
      }
      if (!is.null(`aiLearnTotal`)) {
        stopifnot(is.numeric(`aiLearnTotal`), length(`aiLearnTotal`) == 1)
        self$`aiLearnTotal` <- `aiLearnTotal`
      }
      if (!is.null(`snapshotDate`)) {
        stopifnot(is.numeric(`snapshotDate`), length(`snapshotDate`) == 1)
        self$`snapshotDate` <- `snapshotDate`
      }
    },
    toJSON = function() {
      SourceMetricsOutObject <- list()
      if (!is.null(self$`classifierName`)) {
        SourceMetricsOutObject[['classifierName']] <-
          self$`classifierName`
      }
      if (!is.null(self$`source`)) {
        SourceMetricsOutObject[['source']] <-
          self$`source`$toJSON()
      }
      if (!is.null(self$`aiEstimateTotal`)) {
        SourceMetricsOutObject[['aiEstimateTotal']] <-
          self$`aiEstimateTotal`
      }
      if (!is.null(self$`aiEstimatePrecision`)) {
        SourceMetricsOutObject[['aiEstimatePrecision']] <-
          self$`aiEstimatePrecision`
      }
      if (!is.null(self$`aiEstimateRecall`)) {
        SourceMetricsOutObject[['aiEstimateRecall']] <-
          self$`aiEstimateRecall`
      }
      if (!is.null(self$`metricTimeStamp`)) {
        SourceMetricsOutObject[['metricTimeStamp']] <-
          self$`metricTimeStamp`
      }
      if (!is.null(self$`aiStartTime`)) {
        SourceMetricsOutObject[['aiStartTime']] <-
          self$`aiStartTime`
      }
      if (!is.null(self$`aiLearnTotal`)) {
        SourceMetricsOutObject[['aiLearnTotal']] <-
          self$`aiLearnTotal`
      }
      if (!is.null(self$`snapshotDate`)) {
        SourceMetricsOutObject[['snapshotDate']] <-
          self$`snapshotDate`
      }

      SourceMetricsOutObject
    },
    fromJSON = function(SourceMetricsOutJson) {
      SourceMetricsOutObject <- jsonlite::fromJSON(SourceMetricsOutJson)
      if (!is.null(SourceMetricsOutObject$`classifierName`)) {
        self$`classifierName` <- SourceMetricsOutObject$`classifierName`
      }
      if (!is.null(SourceMetricsOutObject$`source`)) {
        sourceObject <- APIKeyOut$new()
        sourceObject$fromJSON(jsonlite::toJSON(SourceMetricsOutObject$source, auto_unbox = TRUE, digits = NA))
        self$`source` <- sourceObject
      }
      if (!is.null(SourceMetricsOutObject$`aiEstimateTotal`)) {
        self$`aiEstimateTotal` <- SourceMetricsOutObject$`aiEstimateTotal`
      }
      if (!is.null(SourceMetricsOutObject$`aiEstimatePrecision`)) {
        self$`aiEstimatePrecision` <- SourceMetricsOutObject$`aiEstimatePrecision`
      }
      if (!is.null(SourceMetricsOutObject$`aiEstimateRecall`)) {
        self$`aiEstimateRecall` <- SourceMetricsOutObject$`aiEstimateRecall`
      }
      if (!is.null(SourceMetricsOutObject$`metricTimeStamp`)) {
        self$`metricTimeStamp` <- SourceMetricsOutObject$`metricTimeStamp`
      }
      if (!is.null(SourceMetricsOutObject$`aiStartTime`)) {
        self$`aiStartTime` <- SourceMetricsOutObject$`aiStartTime`
      }
      if (!is.null(SourceMetricsOutObject$`aiLearnTotal`)) {
        self$`aiLearnTotal` <- SourceMetricsOutObject$`aiLearnTotal`
      }
      if (!is.null(SourceMetricsOutObject$`snapshotDate`)) {
        self$`snapshotDate` <- SourceMetricsOutObject$`snapshotDate`
      }
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`classifierName`)) {
        sprintf(
        '"classifierName":
          "%s"
                ',
        self$`classifierName`
        )},
        if (!is.null(self$`source`)) {
        sprintf(
        '"source":
        %s
        ',
        jsonlite::toJSON(self$`source`$toJSON(), auto_unbox=TRUE, digits = NA)
        )},
        if (!is.null(self$`aiEstimateTotal`)) {
        sprintf(
        '"aiEstimateTotal":
          %d
                ',
        self$`aiEstimateTotal`
        )},
        if (!is.null(self$`aiEstimatePrecision`)) {
        sprintf(
        '"aiEstimatePrecision":
          %d
                ',
        self$`aiEstimatePrecision`
        )},
        if (!is.null(self$`aiEstimateRecall`)) {
        sprintf(
        '"aiEstimateRecall":
          %d
                ',
        self$`aiEstimateRecall`
        )},
        if (!is.null(self$`metricTimeStamp`)) {
        sprintf(
        '"metricTimeStamp":
          %d
                ',
        self$`metricTimeStamp`
        )},
        if (!is.null(self$`aiStartTime`)) {
        sprintf(
        '"aiStartTime":
          %d
                ',
        self$`aiStartTime`
        )},
        if (!is.null(self$`aiLearnTotal`)) {
        sprintf(
        '"aiLearnTotal":
          %d
                ',
        self$`aiLearnTotal`
        )},
        if (!is.null(self$`snapshotDate`)) {
        sprintf(
        '"snapshotDate":
          %d
                ',
        self$`snapshotDate`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(SourceMetricsOutJson) {
      SourceMetricsOutObject <- jsonlite::fromJSON(SourceMetricsOutJson)
      self$`classifierName` <- SourceMetricsOutObject$`classifierName`
      self$`source` <- APIKeyOut$new()$fromJSON(jsonlite::toJSON(SourceMetricsOutObject$source, auto_unbox = TRUE, digits = NA))
      self$`aiEstimateTotal` <- SourceMetricsOutObject$`aiEstimateTotal`
      self$`aiEstimatePrecision` <- SourceMetricsOutObject$`aiEstimatePrecision`
      self$`aiEstimateRecall` <- SourceMetricsOutObject$`aiEstimateRecall`
      self$`metricTimeStamp` <- SourceMetricsOutObject$`metricTimeStamp`
      self$`aiStartTime` <- SourceMetricsOutObject$`aiStartTime`
      self$`aiLearnTotal` <- SourceMetricsOutObject$`aiLearnTotal`
      self$`snapshotDate` <- SourceMetricsOutObject$`snapshotDate`
      self
    }
  )
)