rgraphsense: R Package Client for GraphSense API

# GraphSense API
#
# GraphSense API provides programmatic access to various ledgers' addresses, entities, blocks, transactions and tags for automated and highly efficient forensics tasks.
#
# The version of the OpenAPI document: 1.0.1
# Contact: contact@ikna.io
# Generated by: https://openapi-generator.tech

#' @docType class
#' @title AddressTag
#'
#' @description AddressTag Class
#'
#' @format An \code{R6Class} generator object
#'
#' @field abuse  character [optional]
#'
#' @field category  character [optional]
#'
#' @field confidence  character [optional]
#'
#' @field confidence_level  integer [optional]
#'
#' @field currency  character 
#'
#' @field is_cluster_definer  character 
#'
#' @field label  character 
#'
#' @field lastmod  integer [optional]
#'
#' @field source  character [optional]
#'
#' @field tagpack_creator  character 
#'
#' @field tagpack_is_public  character 
#'
#' @field tagpack_title  character 
#'
#' @field tagpack_uri  character [optional]
#'
#' @field address  character 
#'
#' @field entity  integer 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
AddressTag <- R6::R6Class(
  'AddressTag',
  public = list(
    `abuse` = NULL,
    `category` = NULL,
    `confidence` = NULL,
    `confidence_level` = NULL,
    `currency` = NULL,
    `is_cluster_definer` = NULL,
    `label` = NULL,
    `lastmod` = NULL,
    `source` = NULL,
    `tagpack_creator` = NULL,
    `tagpack_is_public` = NULL,
    `tagpack_title` = NULL,
    `tagpack_uri` = NULL,
    `address` = NULL,
    `entity` = NULL,
    initialize = function(
        `currency`, `is_cluster_definer`, `label`, `tagpack_creator`, `tagpack_is_public`, `tagpack_title`, `address`, `entity`, `abuse`=NULL, `category`=NULL, `confidence`=NULL, `confidence_level`=NULL, `lastmod`=NULL, `source`=NULL, `tagpack_uri`=NULL, ...
    ) {
      local.optional.var <- list(...)
      if (!missing(`currency`)) {
        stopifnot(is.character(`currency`), length(`currency`) == 1)
        self$`currency` <- `currency`
      }
      if (!missing(`is_cluster_definer`)) {
        self$`is_cluster_definer` <- `is_cluster_definer`
      }
      if (!missing(`label`)) {
        stopifnot(is.character(`label`), length(`label`) == 1)
        self$`label` <- `label`
      }
      if (!missing(`tagpack_creator`)) {
        stopifnot(is.character(`tagpack_creator`), length(`tagpack_creator`) == 1)
        self$`tagpack_creator` <- `tagpack_creator`
      }
      if (!missing(`tagpack_is_public`)) {
        self$`tagpack_is_public` <- `tagpack_is_public`
      }
      if (!missing(`tagpack_title`)) {
        stopifnot(is.character(`tagpack_title`), length(`tagpack_title`) == 1)
        self$`tagpack_title` <- `tagpack_title`
      }
      if (!missing(`address`)) {
        stopifnot(is.character(`address`), length(`address`) == 1)
        self$`address` <- `address`
      }
      if (!missing(`entity`)) {
        stopifnot(is.numeric(`entity`), length(`entity`) == 1)
        self$`entity` <- `entity`
      }
      if (!is.null(`abuse`)) {
        stopifnot(is.character(`abuse`), length(`abuse`) == 1)
        self$`abuse` <- `abuse`
      }
      if (!is.null(`category`)) {
        stopifnot(is.character(`category`), length(`category`) == 1)
        self$`category` <- `category`
      }
      if (!is.null(`confidence`)) {
        stopifnot(is.character(`confidence`), length(`confidence`) == 1)
        self$`confidence` <- `confidence`
      }
      if (!is.null(`confidence_level`)) {
        stopifnot(is.numeric(`confidence_level`), length(`confidence_level`) == 1)
        self$`confidence_level` <- `confidence_level`
      }
      if (!is.null(`lastmod`)) {
        stopifnot(is.numeric(`lastmod`), length(`lastmod`) == 1)
        self$`lastmod` <- `lastmod`
      }
      if (!is.null(`source`)) {
        stopifnot(is.character(`source`), length(`source`) == 1)
        self$`source` <- `source`
      }
      if (!is.null(`tagpack_uri`)) {
        stopifnot(is.character(`tagpack_uri`), length(`tagpack_uri`) == 1)
        self$`tagpack_uri` <- `tagpack_uri`
      }
    },
    toJSON = function() {
      AddressTagObject <- list()
      if (!is.null(self$`abuse`)) {
        AddressTagObject[['abuse']] <-
          self$`abuse`
      }
      if (!is.null(self$`category`)) {
        AddressTagObject[['category']] <-
          self$`category`
      }
      if (!is.null(self$`confidence`)) {
        AddressTagObject[['confidence']] <-
          self$`confidence`
      }
      if (!is.null(self$`confidence_level`)) {
        AddressTagObject[['confidence_level']] <-
          self$`confidence_level`
      }
      if (!is.null(self$`currency`)) {
        AddressTagObject[['currency']] <-
          self$`currency`
      }
      if (!is.null(self$`is_cluster_definer`)) {
        AddressTagObject[['is_cluster_definer']] <-
          self$`is_cluster_definer`
      }
      if (!is.null(self$`label`)) {
        AddressTagObject[['label']] <-
          self$`label`
      }
      if (!is.null(self$`lastmod`)) {
        AddressTagObject[['lastmod']] <-
          self$`lastmod`
      }
      if (!is.null(self$`source`)) {
        AddressTagObject[['source']] <-
          self$`source`
      }
      if (!is.null(self$`tagpack_creator`)) {
        AddressTagObject[['tagpack_creator']] <-
          self$`tagpack_creator`
      }
      if (!is.null(self$`tagpack_is_public`)) {
        AddressTagObject[['tagpack_is_public']] <-
          self$`tagpack_is_public`
      }
      if (!is.null(self$`tagpack_title`)) {
        AddressTagObject[['tagpack_title']] <-
          self$`tagpack_title`
      }
      if (!is.null(self$`tagpack_uri`)) {
        AddressTagObject[['tagpack_uri']] <-
          self$`tagpack_uri`
      }
      if (!is.null(self$`address`)) {
        AddressTagObject[['address']] <-
          self$`address`
      }
      if (!is.null(self$`entity`)) {
        AddressTagObject[['entity']] <-
          self$`entity`
      }

      AddressTagObject
    },
    fromJSON = function(AddressTagJson) {
      AddressTagObject <- jsonlite::fromJSON(AddressTagJson)
      if (!is.null(AddressTagObject$`abuse`)) {
        self$`abuse` <- AddressTagObject$`abuse`
      }
      if (!is.null(AddressTagObject$`category`)) {
        self$`category` <- AddressTagObject$`category`
      }
      if (!is.null(AddressTagObject$`confidence`)) {
        self$`confidence` <- AddressTagObject$`confidence`
      }
      if (!is.null(AddressTagObject$`confidence_level`)) {
        self$`confidence_level` <- AddressTagObject$`confidence_level`
      }
      if (!is.null(AddressTagObject$`currency`)) {
        self$`currency` <- AddressTagObject$`currency`
      }
      if (!is.null(AddressTagObject$`is_cluster_definer`)) {
        self$`is_cluster_definer` <- AddressTagObject$`is_cluster_definer`
      }
      if (!is.null(AddressTagObject$`label`)) {
        self$`label` <- AddressTagObject$`label`
      }
      if (!is.null(AddressTagObject$`lastmod`)) {
        self$`lastmod` <- AddressTagObject$`lastmod`
      }
      if (!is.null(AddressTagObject$`source`)) {
        self$`source` <- AddressTagObject$`source`
      }
      if (!is.null(AddressTagObject$`tagpack_creator`)) {
        self$`tagpack_creator` <- AddressTagObject$`tagpack_creator`
      }
      if (!is.null(AddressTagObject$`tagpack_is_public`)) {
        self$`tagpack_is_public` <- AddressTagObject$`tagpack_is_public`
      }
      if (!is.null(AddressTagObject$`tagpack_title`)) {
        self$`tagpack_title` <- AddressTagObject$`tagpack_title`
      }
      if (!is.null(AddressTagObject$`tagpack_uri`)) {
        self$`tagpack_uri` <- AddressTagObject$`tagpack_uri`
      }
      if (!is.null(AddressTagObject$`address`)) {
        self$`address` <- AddressTagObject$`address`
      }
      if (!is.null(AddressTagObject$`entity`)) {
        self$`entity` <- AddressTagObject$`entity`
      }
      self
    },
    toJSONString = function() {
      jsoncontent <- c(
        if (!is.null(self$`abuse`)) {
        sprintf(
        '"abuse":
          "%s"
                ',
        self$`abuse`
        )},
        if (!is.null(self$`category`)) {
        sprintf(
        '"category":
          "%s"
                ',
        self$`category`
        )},
        if (!is.null(self$`confidence`)) {
        sprintf(
        '"confidence":
          "%s"
                ',
        self$`confidence`
        )},
        if (!is.null(self$`confidence_level`)) {
        sprintf(
        '"confidence_level":
          %d
                ',
        self$`confidence_level`
        )},
        if (!is.null(self$`currency`)) {
        sprintf(
        '"currency":
          "%s"
                ',
        self$`currency`
        )},
        if (!is.null(self$`is_cluster_definer`)) {
        sprintf(
        '"is_cluster_definer":
          "%s"
                ',
        self$`is_cluster_definer`
        )},
        if (!is.null(self$`label`)) {
        sprintf(
        '"label":
          "%s"
                ',
        self$`label`
        )},
        if (!is.null(self$`lastmod`)) {
        sprintf(
        '"lastmod":
          %d
                ',
        self$`lastmod`
        )},
        if (!is.null(self$`source`)) {
        sprintf(
        '"source":
          "%s"
                ',
        self$`source`
        )},
        if (!is.null(self$`tagpack_creator`)) {
        sprintf(
        '"tagpack_creator":
          "%s"
                ',
        self$`tagpack_creator`
        )},
        if (!is.null(self$`tagpack_is_public`)) {
        sprintf(
        '"tagpack_is_public":
          "%s"
                ',
        self$`tagpack_is_public`
        )},
        if (!is.null(self$`tagpack_title`)) {
        sprintf(
        '"tagpack_title":
          "%s"
                ',
        self$`tagpack_title`
        )},
        if (!is.null(self$`tagpack_uri`)) {
        sprintf(
        '"tagpack_uri":
          "%s"
                ',
        self$`tagpack_uri`
        )},
        if (!is.null(self$`address`)) {
        sprintf(
        '"address":
          "%s"
                ',
        self$`address`
        )},
        if (!is.null(self$`entity`)) {
        sprintf(
        '"entity":
          %d
                ',
        self$`entity`
        )}
      )
      jsoncontent <- paste(jsoncontent, collapse = ",")
      paste('{', jsoncontent, '}', sep = "")
    },
    fromJSONString = function(AddressTagJson) {
      AddressTagObject <- jsonlite::fromJSON(AddressTagJson)
      self$`abuse` <- AddressTagObject$`abuse`
      self$`category` <- AddressTagObject$`category`
      self$`confidence` <- AddressTagObject$`confidence`
      self$`confidence_level` <- AddressTagObject$`confidence_level`
      self$`currency` <- AddressTagObject$`currency`
      self$`is_cluster_definer` <- AddressTagObject$`is_cluster_definer`
      self$`label` <- AddressTagObject$`label`
      self$`lastmod` <- AddressTagObject$`lastmod`
      self$`source` <- AddressTagObject$`source`
      self$`tagpack_creator` <- AddressTagObject$`tagpack_creator`
      self$`tagpack_is_public` <- AddressTagObject$`tagpack_is_public`
      self$`tagpack_title` <- AddressTagObject$`tagpack_title`
      self$`tagpack_uri` <- AddressTagObject$`tagpack_uri`
      self$`address` <- AddressTagObject$`address`
      self$`entity` <- AddressTagObject$`entity`
      self
    }
  )
)