R/OntologyReference.r

In OpenSILEX/phis-ws-client-r-tool: R Package Client for sunagriAPI

# sunagriAPI
#
# An instance of OpenSILEX WebService
#
# OpenAPI spec version: 3.3.0
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


#' OntologyReference Class
#'
#' @field property 
#' @field object 
#' @field seeAlso 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
OntologyReference <- R6::R6Class(
  'OntologyReference',
  public = list(
    `property` = NULL,
    `object` = NULL,
    `seeAlso` = NULL,
    initialize = function(`property`, `object`, `seeAlso`){
      if (!missing(`property`)) {
        stopifnot(is.character(`property`), length(`property`) == 1)
        self$`property` <- `property`
      }
      if (!missing(`object`)) {
        stopifnot(is.character(`object`), length(`object`) == 1)
        self$`object` <- `object`
      }
      if (!missing(`seeAlso`)) {
        stopifnot(is.character(`seeAlso`), length(`seeAlso`) == 1)
        self$`seeAlso` <- `seeAlso`
      }
    },
    toJSON = function() {
      OntologyReferenceObject <- list()
      if (!is.null(self$`property`)) {
        OntologyReferenceObject[['property']] <- self$`property`
      }
      if (!is.null(self$`object`)) {
        OntologyReferenceObject[['object']] <- self$`object`
      }
      if (!is.null(self$`seeAlso`)) {
        OntologyReferenceObject[['seeAlso']] <- self$`seeAlso`
      }

      OntologyReferenceObject
    },
    fromJSON = function(OntologyReferenceJson) {
      OntologyReferenceObject <- jsonlite::fromJSON(OntologyReferenceJson)
      if (!is.null(OntologyReferenceObject$`property`)) {
        self$`property` <- OntologyReferenceObject$`property`
      }
      if (!is.null(OntologyReferenceObject$`object`)) {
        self$`object` <- OntologyReferenceObject$`object`
      }
      if (!is.null(OntologyReferenceObject$`seeAlso`)) {
        self$`seeAlso` <- OntologyReferenceObject$`seeAlso`
      }
    },
    fromJSONObject = function(OntologyReferenceObject) {
      if (!is.null(OntologyReferenceObject$`property`)) {
        self$`property` <- OntologyReferenceObject$`property`
      }
      if (!is.null(OntologyReferenceObject$`object`)) {
        self$`object` <- OntologyReferenceObject$`object`
      }
      if (!is.null(OntologyReferenceObject$`seeAlso`)) {
        self$`seeAlso` <- OntologyReferenceObject$`seeAlso`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "property": %s,
           "object": %s,
           "seeAlso": %s
        }',
        jsonlite::toJSON(self$`property`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`object`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`seeAlso`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(OntologyReferenceJson) {
      OntologyReferenceObject <- jsonlite::fromJSON(OntologyReferenceJson)
      self$`property` <- OntologyReferenceObject$`property`
      self$`object` <- OntologyReferenceObject$`object`
      self$`seeAlso` <- OntologyReferenceObject$`seeAlso`
    }
  )
)