R/BrapiVariableTrait.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


#' BrapiVariableTrait Class
#'
#' @field traitDbId 
#' @field traitName 
#' @field brapiclass 
#' @field description 
#' @field synonyms 
#' @field mainAbbreviation 
#' @field alternativeAbbreviations 
#' @field entity 
#' @field attribute 
#' @field status 
#' @field xref 
#' @field ontologyReference 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
BrapiVariableTrait <- R6::R6Class(
  'BrapiVariableTrait',
  public = list(
    `traitDbId` = NULL,
    `traitName` = NULL,
    `brapiclass` = NULL,
    `description` = NULL,
    `synonyms` = NULL,
    `mainAbbreviation` = NULL,
    `alternativeAbbreviations` = NULL,
    `entity` = NULL,
    `attribute` = NULL,
    `status` = NULL,
    `xref` = NULL,
    `ontologyReference` = NULL,
    initialize = function(`traitDbId`, `traitName`, `brapiclass`, `description`, `synonyms`, `mainAbbreviation`, `alternativeAbbreviations`, `entity`, `attribute`, `status`, `xref`, `ontologyReference`){
      if (!missing(`traitDbId`)) {
        stopifnot(is.character(`traitDbId`), length(`traitDbId`) == 1)
        self$`traitDbId` <- `traitDbId`
      }
      if (!missing(`traitName`)) {
        stopifnot(is.character(`traitName`), length(`traitName`) == 1)
        self$`traitName` <- `traitName`
      }
      if (!missing(`brapiclass`)) {
        stopifnot(is.character(`brapiclass`), length(`brapiclass`) == 1)
        self$`brapiclass` <- `brapiclass`
      }
      if (!missing(`description`)) {
        stopifnot(is.character(`description`), length(`description`) == 1)
        self$`description` <- `description`
      }
      if (!missing(`synonyms`)) {
        stopifnot(is.list(`synonyms`), length(`synonyms`) != 0)
        lapply(`synonyms`, function(x) stopifnot(is.character(x)))
        self$`synonyms` <- `synonyms`
      }
      if (!missing(`mainAbbreviation`)) {
        stopifnot(is.character(`mainAbbreviation`), length(`mainAbbreviation`) == 1)
        self$`mainAbbreviation` <- `mainAbbreviation`
      }
      if (!missing(`alternativeAbbreviations`)) {
        stopifnot(is.list(`alternativeAbbreviations`), length(`alternativeAbbreviations`) != 0)
        lapply(`alternativeAbbreviations`, function(x) stopifnot(is.character(x)))
        self$`alternativeAbbreviations` <- `alternativeAbbreviations`
      }
      if (!missing(`entity`)) {
        stopifnot(is.character(`entity`), length(`entity`) == 1)
        self$`entity` <- `entity`
      }
      if (!missing(`attribute`)) {
        stopifnot(is.character(`attribute`), length(`attribute`) == 1)
        self$`attribute` <- `attribute`
      }
      if (!missing(`status`)) {
        stopifnot(is.character(`status`), length(`status`) == 1)
        self$`status` <- `status`
      }
      if (!missing(`xref`)) {
        stopifnot(is.character(`xref`), length(`xref`) == 1)
        self$`xref` <- `xref`
      }
      if (!missing(`ontologyReference`)) {
        stopifnot(is.character(`ontologyReference`), length(`ontologyReference`) == 1)
        self$`ontologyReference` <- `ontologyReference`
      }
    },
    toJSON = function() {
      BrapiVariableTraitObject <- list()
      if (!is.null(self$`traitDbId`)) {
        BrapiVariableTraitObject[['traitDbId']] <- self$`traitDbId`
      }
      if (!is.null(self$`traitName`)) {
        BrapiVariableTraitObject[['traitName']] <- self$`traitName`
      }
      if (!is.null(self$`brapiclass`)) {
        BrapiVariableTraitObject[['brapiclass']] <- self$`brapiclass`
      }
      if (!is.null(self$`description`)) {
        BrapiVariableTraitObject[['description']] <- self$`description`
      }
      if (!is.null(self$`synonyms`)) {
        BrapiVariableTraitObject[['synonyms']] <- self$`synonyms`
      }
      if (!is.null(self$`mainAbbreviation`)) {
        BrapiVariableTraitObject[['mainAbbreviation']] <- self$`mainAbbreviation`
      }
      if (!is.null(self$`alternativeAbbreviations`)) {
        BrapiVariableTraitObject[['alternativeAbbreviations']] <- self$`alternativeAbbreviations`
      }
      if (!is.null(self$`entity`)) {
        BrapiVariableTraitObject[['entity']] <- self$`entity`
      }
      if (!is.null(self$`attribute`)) {
        BrapiVariableTraitObject[['attribute']] <- self$`attribute`
      }
      if (!is.null(self$`status`)) {
        BrapiVariableTraitObject[['status']] <- self$`status`
      }
      if (!is.null(self$`xref`)) {
        BrapiVariableTraitObject[['xref']] <- self$`xref`
      }
      if (!is.null(self$`ontologyReference`)) {
        BrapiVariableTraitObject[['ontologyReference']] <- self$`ontologyReference`
      }

      BrapiVariableTraitObject
    },
    fromJSON = function(BrapiVariableTraitJson) {
      BrapiVariableTraitObject <- jsonlite::fromJSON(BrapiVariableTraitJson)
      if (!is.null(BrapiVariableTraitObject$`traitDbId`)) {
        self$`traitDbId` <- BrapiVariableTraitObject$`traitDbId`
      }
      if (!is.null(BrapiVariableTraitObject$`traitName`)) {
        self$`traitName` <- BrapiVariableTraitObject$`traitName`
      }
      if (!is.null(BrapiVariableTraitObject$`brapiclass`)) {
        self$`brapiclass` <- BrapiVariableTraitObject$`brapiclass`
      }
      if (!is.null(BrapiVariableTraitObject$`description`)) {
        self$`description` <- BrapiVariableTraitObject$`description`
      }
      if (!is.null(BrapiVariableTraitObject$`synonyms`)) {
        self$`synonyms` <- BrapiVariableTraitObject$`synonyms`
      }
      if (!is.null(BrapiVariableTraitObject$`mainAbbreviation`)) {
        self$`mainAbbreviation` <- BrapiVariableTraitObject$`mainAbbreviation`
      }
      if (!is.null(BrapiVariableTraitObject$`alternativeAbbreviations`)) {
        self$`alternativeAbbreviations` <- BrapiVariableTraitObject$`alternativeAbbreviations`
      }
      if (!is.null(BrapiVariableTraitObject$`entity`)) {
        self$`entity` <- BrapiVariableTraitObject$`entity`
      }
      if (!is.null(BrapiVariableTraitObject$`attribute`)) {
        self$`attribute` <- BrapiVariableTraitObject$`attribute`
      }
      if (!is.null(BrapiVariableTraitObject$`status`)) {
        self$`status` <- BrapiVariableTraitObject$`status`
      }
      if (!is.null(BrapiVariableTraitObject$`xref`)) {
        self$`xref` <- BrapiVariableTraitObject$`xref`
      }
      if (!is.null(BrapiVariableTraitObject$`ontologyReference`)) {
        self$`ontologyReference` <- BrapiVariableTraitObject$`ontologyReference`
      }
    },
    fromJSONObject = function(BrapiVariableTraitObject) {
      if (!is.null(BrapiVariableTraitObject$`traitDbId`)) {
        self$`traitDbId` <- BrapiVariableTraitObject$`traitDbId`
      }
      if (!is.null(BrapiVariableTraitObject$`traitName`)) {
        self$`traitName` <- BrapiVariableTraitObject$`traitName`
      }
      if (!is.null(BrapiVariableTraitObject$`brapiclass`)) {
        self$`brapiclass` <- BrapiVariableTraitObject$`brapiclass`
      }
      if (!is.null(BrapiVariableTraitObject$`description`)) {
        self$`description` <- BrapiVariableTraitObject$`description`
      }
      if (!is.null(BrapiVariableTraitObject$`synonyms`)) {
        self$`synonyms` <- BrapiVariableTraitObject$`synonyms`
      }
      if (!is.null(BrapiVariableTraitObject$`mainAbbreviation`)) {
        self$`mainAbbreviation` <- BrapiVariableTraitObject$`mainAbbreviation`
      }
      if (!is.null(BrapiVariableTraitObject$`alternativeAbbreviations`)) {
        self$`alternativeAbbreviations` <- BrapiVariableTraitObject$`alternativeAbbreviations`
      }
      if (!is.null(BrapiVariableTraitObject$`entity`)) {
        self$`entity` <- BrapiVariableTraitObject$`entity`
      }
      if (!is.null(BrapiVariableTraitObject$`attribute`)) {
        self$`attribute` <- BrapiVariableTraitObject$`attribute`
      }
      if (!is.null(BrapiVariableTraitObject$`status`)) {
        self$`status` <- BrapiVariableTraitObject$`status`
      }
      if (!is.null(BrapiVariableTraitObject$`xref`)) {
        self$`xref` <- BrapiVariableTraitObject$`xref`
      }
      if (!is.null(BrapiVariableTraitObject$`ontologyReference`)) {
        self$`ontologyReference` <- BrapiVariableTraitObject$`ontologyReference`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "traitDbId": %s,
           "traitName": %s,
           "brapiclass": %s,
           "description": %s,
           "synonyms": [%s],
           "mainAbbreviation": %s,
           "alternativeAbbreviations": [%s],
           "entity": %s,
           "attribute": %s,
           "status": %s,
           "xref": %s,
           "ontologyReference": %s
        }',
        jsonlite::toJSON(self$`traitDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`traitName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`brapiclass`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`description`,auto_unbox=TRUE, null = "null"),
        lapply(self$`synonyms`, function(x) paste(paste0('"', x, '"'), sep=",")),
        jsonlite::toJSON(self$`mainAbbreviation`,auto_unbox=TRUE, null = "null"),
        lapply(self$`alternativeAbbreviations`, function(x) paste(paste0('"', x, '"'), sep=",")),
        jsonlite::toJSON(self$`entity`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`attribute`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`status`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`xref`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`ontologyReference`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(BrapiVariableTraitJson) {
      BrapiVariableTraitObject <- jsonlite::fromJSON(BrapiVariableTraitJson)
      self$`traitDbId` <- BrapiVariableTraitObject$`traitDbId`
      self$`traitName` <- BrapiVariableTraitObject$`traitName`
      self$`brapiclass` <- BrapiVariableTraitObject$`brapiclass`
      self$`description` <- BrapiVariableTraitObject$`description`
      self$`synonyms` <- BrapiVariableTraitObject$`synonyms`
      self$`mainAbbreviation` <- BrapiVariableTraitObject$`mainAbbreviation`
      self$`alternativeAbbreviations` <- BrapiVariableTraitObject$`alternativeAbbreviations`
      self$`entity` <- BrapiVariableTraitObject$`entity`
      self$`attribute` <- BrapiVariableTraitObject$`attribute`
      self$`status` <- BrapiVariableTraitObject$`status`
      self$`xref` <- BrapiVariableTraitObject$`xref`
      self$`ontologyReference` <- BrapiVariableTraitObject$`ontologyReference`
    }
  )
)