Organization.r

# Netherlands Biodiversity Api
#
# Access to the digitised Natural History collection at the Naturalis Biodiversity Center
#
# OpenAPI spec version: v2
# Contact: support@naturalis.nl
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' Organization Class
#'
#' @field agentText
#' @field name
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
Organization <- R6::R6Class(
  "Organization",
  public = list(
    `agentText` = NULL,
    `name` = NULL,
    initialize = function(`agentText`, `name`) {
      if (!missing(`agentText`)) {
        stopifnot(is.character(`agentText`), length(`agentText`) == 1)
        self[["agentText"]] <- `agentText`
      }
      if (!missing(`name`)) {
        stopifnot(is.character(`name`), length(`name`) == 1)
        self[["name"]] <- `name`
      }
    },

    toList = function() {
      OrganizationList <- list()
      if (!is.null(self[["agentText"]])) {
        OrganizationList[["agentText"]] <- self[["agentText"]]
      }
      if (!is.null(self[["name"]])) {
        OrganizationList[["name"]] <- self[["name"]]
      }
      ## omit empty nested lists in returned list
      OrganizationList[vapply(OrganizationList, length, FUN.VALUE = integer(1)) > 0]
    },

    fromList = function(OrganizationList, typeMapping = NULL) {
      if (is.null(typeMapping[["agentText"]])) {
        self[["agentText"]] <- OrganizationList[["agentText"]]
      } else {
        obj <- eval(parse(text = paste0(typeMapping[["agentText"]], "$new()")))
        self[["agentText"]] <- obj$fromList(OrganizationList[["agentText"]], typeMapping = typeMapping)
      }
      if (is.null(typeMapping[["name"]])) {
        self[["name"]] <- OrganizationList[["name"]]
      } else {
        obj <- eval(parse(text = paste0(typeMapping[["name"]], "$new()")))
        self[["name"]] <- obj$fromList(OrganizationList[["name"]], typeMapping = typeMapping)
      }
      invisible(self)
    },

    toJSONString = function(pretty = T) {
      jsonlite::toJSON(self$toList(), simplifyVector = T, auto_unbox = T, pretty = pretty)
    },

    fromJSONString = function(OrganizationJson, typeMapping = NULL) {
      OrganizationList <- jsonlite::fromJSON(OrganizationJson, simplifyVector = F)
      if (is.null(typeMapping[["agentText"]])) {
        self[["agentText"]] <- OrganizationList[["agentText"]]
      } else {
        obj <- eval(parse(text = paste0(typeMapping[["agentText"]], "$new()")))
        self[["agentText"]] <- obj$fromJSONString(jsonlite::toJSON(OrganizationList[["agentText"]], auto_unbox = TRUE), typeMapping = typeMapping)
      }
      if (is.null(typeMapping[["name"]])) {
        self[["name"]] <- OrganizationList[["name"]]
      } else {
        obj <- eval(parse(text = paste0(typeMapping[["name"]], "$new()")))
        self[["name"]] <- obj$fromJSONString(jsonlite::toJSON(OrganizationList[["name"]], auto_unbox = TRUE), typeMapping = typeMapping)
      }
      invisible(self)
    }
  )
)