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


#' BrapiObservationUnitDTO Class
#'
#' @field blockNumber 
#' @field entryNumber 
#' @field entryType 
#' @field germplasmDbId 
#' @field germplasmName 
#' @field locationDbId 
#' @field locationName 
#' @field observationLevel 
#' @field observationLevels 
#' @field observationUnitDbId 
#' @field observationUnitName 
#' @field observationUnitXref 
#' @field observations 
#' @field pedigree 
#' @field plantNumber 
#' @field plotNumber 
#' @field positionCoordinateX 
#' @field positionCoordinateXType 
#' @field positionCoordinateY 
#' @field positionCoordinateYType 
#' @field programDbId 
#' @field programName 
#' @field replicate 
#' @field studyDbId 
#' @field studyName 
#' @field treatments 
#' @field trialDbId 
#' @field trialName 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
BrapiObservationUnitDTO <- R6::R6Class(
  'BrapiObservationUnitDTO',
  public = list(
    `blockNumber` = NULL,
    `entryNumber` = NULL,
    `entryType` = NULL,
    `germplasmDbId` = NULL,
    `germplasmName` = NULL,
    `locationDbId` = NULL,
    `locationName` = NULL,
    `observationLevel` = NULL,
    `observationLevels` = NULL,
    `observationUnitDbId` = NULL,
    `observationUnitName` = NULL,
    `observationUnitXref` = NULL,
    `observations` = NULL,
    `pedigree` = NULL,
    `plantNumber` = NULL,
    `plotNumber` = NULL,
    `positionCoordinateX` = NULL,
    `positionCoordinateXType` = NULL,
    `positionCoordinateY` = NULL,
    `positionCoordinateYType` = NULL,
    `programDbId` = NULL,
    `programName` = NULL,
    `replicate` = NULL,
    `studyDbId` = NULL,
    `studyName` = NULL,
    `treatments` = NULL,
    `trialDbId` = NULL,
    `trialName` = NULL,
    initialize = function(`blockNumber`, `entryNumber`, `entryType`, `germplasmDbId`, `germplasmName`, `locationDbId`, `locationName`, `observationLevel`, `observationLevels`, `observationUnitDbId`, `observationUnitName`, `observationUnitXref`, `observations`, `pedigree`, `plantNumber`, `plotNumber`, `positionCoordinateX`, `positionCoordinateXType`, `positionCoordinateY`, `positionCoordinateYType`, `programDbId`, `programName`, `replicate`, `studyDbId`, `studyName`, `treatments`, `trialDbId`, `trialName`){
      if (!missing(`blockNumber`)) {
        stopifnot(is.character(`blockNumber`), length(`blockNumber`) == 1)
        self$`blockNumber` <- `blockNumber`
      }
      if (!missing(`entryNumber`)) {
        stopifnot(is.character(`entryNumber`), length(`entryNumber`) == 1)
        self$`entryNumber` <- `entryNumber`
      }
      if (!missing(`entryType`)) {
        stopifnot(is.character(`entryType`), length(`entryType`) == 1)
        self$`entryType` <- `entryType`
      }
      if (!missing(`germplasmDbId`)) {
        stopifnot(is.character(`germplasmDbId`), length(`germplasmDbId`) == 1)
        self$`germplasmDbId` <- `germplasmDbId`
      }
      if (!missing(`germplasmName`)) {
        stopifnot(is.character(`germplasmName`), length(`germplasmName`) == 1)
        self$`germplasmName` <- `germplasmName`
      }
      if (!missing(`locationDbId`)) {
        stopifnot(is.character(`locationDbId`), length(`locationDbId`) == 1)
        self$`locationDbId` <- `locationDbId`
      }
      if (!missing(`locationName`)) {
        stopifnot(is.character(`locationName`), length(`locationName`) == 1)
        self$`locationName` <- `locationName`
      }
      if (!missing(`observationLevel`)) {
        stopifnot(is.character(`observationLevel`), length(`observationLevel`) == 1)
        self$`observationLevel` <- `observationLevel`
      }
      if (!missing(`observationLevels`)) {
        stopifnot(is.character(`observationLevels`), length(`observationLevels`) == 1)
        self$`observationLevels` <- `observationLevels`
      }
      if (!missing(`observationUnitDbId`)) {
        stopifnot(is.character(`observationUnitDbId`), length(`observationUnitDbId`) == 1)
        self$`observationUnitDbId` <- `observationUnitDbId`
      }
      if (!missing(`observationUnitName`)) {
        stopifnot(is.character(`observationUnitName`), length(`observationUnitName`) == 1)
        self$`observationUnitName` <- `observationUnitName`
      }
      if (!missing(`observationUnitXref`)) {
        stopifnot(is.character(`observationUnitXref`), length(`observationUnitXref`) == 1)
        self$`observationUnitXref` <- `observationUnitXref`
      }
      if (!missing(`observations`)) {
        stopifnot(is.list(`observations`), length(`observations`) != 0)
        lapply(`observations`, function(x) stopifnot(R6::is.R6(x)))
        self$`observations` <- `observations`
      }
      if (!missing(`pedigree`)) {
        stopifnot(is.character(`pedigree`), length(`pedigree`) == 1)
        self$`pedigree` <- `pedigree`
      }
      if (!missing(`plantNumber`)) {
        stopifnot(is.character(`plantNumber`), length(`plantNumber`) == 1)
        self$`plantNumber` <- `plantNumber`
      }
      if (!missing(`plotNumber`)) {
        stopifnot(is.character(`plotNumber`), length(`plotNumber`) == 1)
        self$`plotNumber` <- `plotNumber`
      }
      if (!missing(`positionCoordinateX`)) {
        stopifnot(is.character(`positionCoordinateX`), length(`positionCoordinateX`) == 1)
        self$`positionCoordinateX` <- `positionCoordinateX`
      }
      if (!missing(`positionCoordinateXType`)) {
        stopifnot(is.character(`positionCoordinateXType`), length(`positionCoordinateXType`) == 1)
        self$`positionCoordinateXType` <- `positionCoordinateXType`
      }
      if (!missing(`positionCoordinateY`)) {
        stopifnot(is.character(`positionCoordinateY`), length(`positionCoordinateY`) == 1)
        self$`positionCoordinateY` <- `positionCoordinateY`
      }
      if (!missing(`positionCoordinateYType`)) {
        stopifnot(is.character(`positionCoordinateYType`), length(`positionCoordinateYType`) == 1)
        self$`positionCoordinateYType` <- `positionCoordinateYType`
      }
      if (!missing(`programDbId`)) {
        stopifnot(is.character(`programDbId`), length(`programDbId`) == 1)
        self$`programDbId` <- `programDbId`
      }
      if (!missing(`programName`)) {
        stopifnot(is.character(`programName`), length(`programName`) == 1)
        self$`programName` <- `programName`
      }
      if (!missing(`replicate`)) {
        stopifnot(is.character(`replicate`), length(`replicate`) == 1)
        self$`replicate` <- `replicate`
      }
      if (!missing(`studyDbId`)) {
        stopifnot(is.character(`studyDbId`), length(`studyDbId`) == 1)
        self$`studyDbId` <- `studyDbId`
      }
      if (!missing(`studyName`)) {
        stopifnot(is.character(`studyName`), length(`studyName`) == 1)
        self$`studyName` <- `studyName`
      }
      if (!missing(`treatments`)) {
        stopifnot(is.list(`treatments`), length(`treatments`) != 0)
        lapply(`treatments`, function(x) stopifnot(is.character(x)))
        self$`treatments` <- `treatments`
      }
      if (!missing(`trialDbId`)) {
        stopifnot(is.character(`trialDbId`), length(`trialDbId`) == 1)
        self$`trialDbId` <- `trialDbId`
      }
      if (!missing(`trialName`)) {
        stopifnot(is.character(`trialName`), length(`trialName`) == 1)
        self$`trialName` <- `trialName`
      }
    },
    toJSON = function() {
      BrapiObservationUnitDTOObject <- list()
      if (!is.null(self$`blockNumber`)) {
        BrapiObservationUnitDTOObject[['blockNumber']] <- self$`blockNumber`
      }
      if (!is.null(self$`entryNumber`)) {
        BrapiObservationUnitDTOObject[['entryNumber']] <- self$`entryNumber`
      }
      if (!is.null(self$`entryType`)) {
        BrapiObservationUnitDTOObject[['entryType']] <- self$`entryType`
      }
      if (!is.null(self$`germplasmDbId`)) {
        BrapiObservationUnitDTOObject[['germplasmDbId']] <- self$`germplasmDbId`
      }
      if (!is.null(self$`germplasmName`)) {
        BrapiObservationUnitDTOObject[['germplasmName']] <- self$`germplasmName`
      }
      if (!is.null(self$`locationDbId`)) {
        BrapiObservationUnitDTOObject[['locationDbId']] <- self$`locationDbId`
      }
      if (!is.null(self$`locationName`)) {
        BrapiObservationUnitDTOObject[['locationName']] <- self$`locationName`
      }
      if (!is.null(self$`observationLevel`)) {
        BrapiObservationUnitDTOObject[['observationLevel']] <- self$`observationLevel`
      }
      if (!is.null(self$`observationLevels`)) {
        BrapiObservationUnitDTOObject[['observationLevels']] <- self$`observationLevels`
      }
      if (!is.null(self$`observationUnitDbId`)) {
        BrapiObservationUnitDTOObject[['observationUnitDbId']] <- self$`observationUnitDbId`
      }
      if (!is.null(self$`observationUnitName`)) {
        BrapiObservationUnitDTOObject[['observationUnitName']] <- self$`observationUnitName`
      }
      if (!is.null(self$`observationUnitXref`)) {
        BrapiObservationUnitDTOObject[['observationUnitXref']] <- self$`observationUnitXref`
      }
      if (!is.null(self$`observations`)) {
        BrapiObservationUnitDTOObject[['observations']] <- lapply(self$`observations`, function(x) x$toJSON())
      }
      if (!is.null(self$`pedigree`)) {
        BrapiObservationUnitDTOObject[['pedigree']] <- self$`pedigree`
      }
      if (!is.null(self$`plantNumber`)) {
        BrapiObservationUnitDTOObject[['plantNumber']] <- self$`plantNumber`
      }
      if (!is.null(self$`plotNumber`)) {
        BrapiObservationUnitDTOObject[['plotNumber']] <- self$`plotNumber`
      }
      if (!is.null(self$`positionCoordinateX`)) {
        BrapiObservationUnitDTOObject[['positionCoordinateX']] <- self$`positionCoordinateX`
      }
      if (!is.null(self$`positionCoordinateXType`)) {
        BrapiObservationUnitDTOObject[['positionCoordinateXType']] <- self$`positionCoordinateXType`
      }
      if (!is.null(self$`positionCoordinateY`)) {
        BrapiObservationUnitDTOObject[['positionCoordinateY']] <- self$`positionCoordinateY`
      }
      if (!is.null(self$`positionCoordinateYType`)) {
        BrapiObservationUnitDTOObject[['positionCoordinateYType']] <- self$`positionCoordinateYType`
      }
      if (!is.null(self$`programDbId`)) {
        BrapiObservationUnitDTOObject[['programDbId']] <- self$`programDbId`
      }
      if (!is.null(self$`programName`)) {
        BrapiObservationUnitDTOObject[['programName']] <- self$`programName`
      }
      if (!is.null(self$`replicate`)) {
        BrapiObservationUnitDTOObject[['replicate']] <- self$`replicate`
      }
      if (!is.null(self$`studyDbId`)) {
        BrapiObservationUnitDTOObject[['studyDbId']] <- self$`studyDbId`
      }
      if (!is.null(self$`studyName`)) {
        BrapiObservationUnitDTOObject[['studyName']] <- self$`studyName`
      }
      if (!is.null(self$`treatments`)) {
        BrapiObservationUnitDTOObject[['treatments']] <- self$`treatments`
      }
      if (!is.null(self$`trialDbId`)) {
        BrapiObservationUnitDTOObject[['trialDbId']] <- self$`trialDbId`
      }
      if (!is.null(self$`trialName`)) {
        BrapiObservationUnitDTOObject[['trialName']] <- self$`trialName`
      }

      BrapiObservationUnitDTOObject
    },
    fromJSON = function(BrapiObservationUnitDTOJson) {
      BrapiObservationUnitDTOObject <- jsonlite::fromJSON(BrapiObservationUnitDTOJson)
      if (!is.null(BrapiObservationUnitDTOObject$`blockNumber`)) {
        self$`blockNumber` <- BrapiObservationUnitDTOObject$`blockNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`entryNumber`)) {
        self$`entryNumber` <- BrapiObservationUnitDTOObject$`entryNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`entryType`)) {
        self$`entryType` <- BrapiObservationUnitDTOObject$`entryType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`germplasmDbId`)) {
        self$`germplasmDbId` <- BrapiObservationUnitDTOObject$`germplasmDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`germplasmName`)) {
        self$`germplasmName` <- BrapiObservationUnitDTOObject$`germplasmName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`locationDbId`)) {
        self$`locationDbId` <- BrapiObservationUnitDTOObject$`locationDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`locationName`)) {
        self$`locationName` <- BrapiObservationUnitDTOObject$`locationName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationLevel`)) {
        self$`observationLevel` <- BrapiObservationUnitDTOObject$`observationLevel`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationLevels`)) {
        self$`observationLevels` <- BrapiObservationUnitDTOObject$`observationLevels`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitDbId`)) {
        self$`observationUnitDbId` <- BrapiObservationUnitDTOObject$`observationUnitDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitName`)) {
        self$`observationUnitName` <- BrapiObservationUnitDTOObject$`observationUnitName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitXref`)) {
        self$`observationUnitXref` <- BrapiObservationUnitDTOObject$`observationUnitXref`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observations`)) {
        self$`observations` <- lapply(BrapiObservationUnitDTOObject$`observations`, function(x) {
          observationsObject <- BrapiObservationSummaryDTO$new()
          observationsObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE, null = "null"))
          observationsObject
        })
      }
      if (!is.null(BrapiObservationUnitDTOObject$`pedigree`)) {
        self$`pedigree` <- BrapiObservationUnitDTOObject$`pedigree`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`plantNumber`)) {
        self$`plantNumber` <- BrapiObservationUnitDTOObject$`plantNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`plotNumber`)) {
        self$`plotNumber` <- BrapiObservationUnitDTOObject$`plotNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateX`)) {
        self$`positionCoordinateX` <- BrapiObservationUnitDTOObject$`positionCoordinateX`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateXType`)) {
        self$`positionCoordinateXType` <- BrapiObservationUnitDTOObject$`positionCoordinateXType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateY`)) {
        self$`positionCoordinateY` <- BrapiObservationUnitDTOObject$`positionCoordinateY`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateYType`)) {
        self$`positionCoordinateYType` <- BrapiObservationUnitDTOObject$`positionCoordinateYType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`programDbId`)) {
        self$`programDbId` <- BrapiObservationUnitDTOObject$`programDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`programName`)) {
        self$`programName` <- BrapiObservationUnitDTOObject$`programName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`replicate`)) {
        self$`replicate` <- BrapiObservationUnitDTOObject$`replicate`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`studyDbId`)) {
        self$`studyDbId` <- BrapiObservationUnitDTOObject$`studyDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`studyName`)) {
        self$`studyName` <- BrapiObservationUnitDTOObject$`studyName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`treatments`)) {
        self$`treatments` <- BrapiObservationUnitDTOObject$`treatments`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`trialDbId`)) {
        self$`trialDbId` <- BrapiObservationUnitDTOObject$`trialDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`trialName`)) {
        self$`trialName` <- BrapiObservationUnitDTOObject$`trialName`
      }
    },
    fromJSONObject = function(BrapiObservationUnitDTOObject) {
      if (!is.null(BrapiObservationUnitDTOObject$`blockNumber`)) {
        self$`blockNumber` <- BrapiObservationUnitDTOObject$`blockNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`entryNumber`)) {
        self$`entryNumber` <- BrapiObservationUnitDTOObject$`entryNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`entryType`)) {
        self$`entryType` <- BrapiObservationUnitDTOObject$`entryType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`germplasmDbId`)) {
        self$`germplasmDbId` <- BrapiObservationUnitDTOObject$`germplasmDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`germplasmName`)) {
        self$`germplasmName` <- BrapiObservationUnitDTOObject$`germplasmName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`locationDbId`)) {
        self$`locationDbId` <- BrapiObservationUnitDTOObject$`locationDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`locationName`)) {
        self$`locationName` <- BrapiObservationUnitDTOObject$`locationName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationLevel`)) {
        self$`observationLevel` <- BrapiObservationUnitDTOObject$`observationLevel`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationLevels`)) {
        self$`observationLevels` <- BrapiObservationUnitDTOObject$`observationLevels`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitDbId`)) {
        self$`observationUnitDbId` <- BrapiObservationUnitDTOObject$`observationUnitDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitName`)) {
        self$`observationUnitName` <- BrapiObservationUnitDTOObject$`observationUnitName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observationUnitXref`)) {
        self$`observationUnitXref` <- BrapiObservationUnitDTOObject$`observationUnitXref`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`observations`)) {
        self$`observations` <- lapply(BrapiObservationUnitDTOObject$`observations`, function(x) {
          observationsObject <- BrapiObservationSummaryDTO$new()
          observationsObject$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE, null = "null"))
          observationsObject
        })
      }
      if (!is.null(BrapiObservationUnitDTOObject$`pedigree`)) {
        self$`pedigree` <- BrapiObservationUnitDTOObject$`pedigree`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`plantNumber`)) {
        self$`plantNumber` <- BrapiObservationUnitDTOObject$`plantNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`plotNumber`)) {
        self$`plotNumber` <- BrapiObservationUnitDTOObject$`plotNumber`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateX`)) {
        self$`positionCoordinateX` <- BrapiObservationUnitDTOObject$`positionCoordinateX`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateXType`)) {
        self$`positionCoordinateXType` <- BrapiObservationUnitDTOObject$`positionCoordinateXType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateY`)) {
        self$`positionCoordinateY` <- BrapiObservationUnitDTOObject$`positionCoordinateY`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`positionCoordinateYType`)) {
        self$`positionCoordinateYType` <- BrapiObservationUnitDTOObject$`positionCoordinateYType`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`programDbId`)) {
        self$`programDbId` <- BrapiObservationUnitDTOObject$`programDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`programName`)) {
        self$`programName` <- BrapiObservationUnitDTOObject$`programName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`replicate`)) {
        self$`replicate` <- BrapiObservationUnitDTOObject$`replicate`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`studyDbId`)) {
        self$`studyDbId` <- BrapiObservationUnitDTOObject$`studyDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`studyName`)) {
        self$`studyName` <- BrapiObservationUnitDTOObject$`studyName`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`treatments`)) {
        self$`treatments` <- BrapiObservationUnitDTOObject$`treatments`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`trialDbId`)) {
        self$`trialDbId` <- BrapiObservationUnitDTOObject$`trialDbId`
      }
      if (!is.null(BrapiObservationUnitDTOObject$`trialName`)) {
        self$`trialName` <- BrapiObservationUnitDTOObject$`trialName`
      }
    },
    toJSONString = function() {
      observationsList = paste(lapply(self$`observations`, function(x) x$toJSONString()),collapse = ",")
       sprintf(
        '{
           "blockNumber": %s,
           "entryNumber": %s,
           "entryType": %s,
           "germplasmDbId": %s,
           "germplasmName": %s,
           "locationDbId": %s,
           "locationName": %s,
           "observationLevel": %s,
           "observationLevels": %s,
           "observationUnitDbId": %s,
           "observationUnitName": %s,
           "observationUnitXref": %s,
           "observations": [%s],
           "pedigree": %s,
           "plantNumber": %s,
           "plotNumber": %s,
           "positionCoordinateX": %s,
           "positionCoordinateXType": %s,
           "positionCoordinateY": %s,
           "positionCoordinateYType": %s,
           "programDbId": %s,
           "programName": %s,
           "replicate": %s,
           "studyDbId": %s,
           "studyName": %s,
           "treatments": [%s],
           "trialDbId": %s,
           "trialName": %s
        }',
        jsonlite::toJSON(self$`blockNumber`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`entryNumber`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`entryType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`germplasmDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`germplasmName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`locationDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`locationName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`observationLevel`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`observationLevels`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`observationUnitDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`observationUnitName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`observationUnitXref`,auto_unbox=TRUE, null = "null"),
        observationsList,
        jsonlite::toJSON(self$`pedigree`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`plantNumber`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`plotNumber`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`positionCoordinateX`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`positionCoordinateXType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`positionCoordinateY`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`positionCoordinateYType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`programDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`programName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`replicate`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`studyDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`studyName`,auto_unbox=TRUE, null = "null"),
        lapply(self$`treatments`, function(x) paste(paste0('"', x, '"'), sep=",")),
        jsonlite::toJSON(self$`trialDbId`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`trialName`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(BrapiObservationUnitDTOJson) {
      BrapiObservationUnitDTOObject <- jsonlite::fromJSON(BrapiObservationUnitDTOJson)
      self$`blockNumber` <- BrapiObservationUnitDTOObject$`blockNumber`
      self$`entryNumber` <- BrapiObservationUnitDTOObject$`entryNumber`
      self$`entryType` <- BrapiObservationUnitDTOObject$`entryType`
      self$`germplasmDbId` <- BrapiObservationUnitDTOObject$`germplasmDbId`
      self$`germplasmName` <- BrapiObservationUnitDTOObject$`germplasmName`
      self$`locationDbId` <- BrapiObservationUnitDTOObject$`locationDbId`
      self$`locationName` <- BrapiObservationUnitDTOObject$`locationName`
      self$`observationLevel` <- BrapiObservationUnitDTOObject$`observationLevel`
      self$`observationLevels` <- BrapiObservationUnitDTOObject$`observationLevels`
      self$`observationUnitDbId` <- BrapiObservationUnitDTOObject$`observationUnitDbId`
      self$`observationUnitName` <- BrapiObservationUnitDTOObject$`observationUnitName`
      self$`observationUnitXref` <- BrapiObservationUnitDTOObject$`observationUnitXref`
      self$`observations` <- lapply(BrapiObservationUnitDTOObject$`observations`, function(x) BrapiObservationSummaryDTO$new()$fromJSON(jsonlite::toJSON(x, auto_unbox = TRUE)))
      self$`pedigree` <- BrapiObservationUnitDTOObject$`pedigree`
      self$`plantNumber` <- BrapiObservationUnitDTOObject$`plantNumber`
      self$`plotNumber` <- BrapiObservationUnitDTOObject$`plotNumber`
      self$`positionCoordinateX` <- BrapiObservationUnitDTOObject$`positionCoordinateX`
      self$`positionCoordinateXType` <- BrapiObservationUnitDTOObject$`positionCoordinateXType`
      self$`positionCoordinateY` <- BrapiObservationUnitDTOObject$`positionCoordinateY`
      self$`positionCoordinateYType` <- BrapiObservationUnitDTOObject$`positionCoordinateYType`
      self$`programDbId` <- BrapiObservationUnitDTOObject$`programDbId`
      self$`programName` <- BrapiObservationUnitDTOObject$`programName`
      self$`replicate` <- BrapiObservationUnitDTOObject$`replicate`
      self$`studyDbId` <- BrapiObservationUnitDTOObject$`studyDbId`
      self$`studyName` <- BrapiObservationUnitDTOObject$`studyName`
      self$`treatments` <- BrapiObservationUnitDTOObject$`treatments`
      self$`trialDbId` <- BrapiObservationUnitDTOObject$`trialDbId`
      self$`trialName` <- BrapiObservationUnitDTOObject$`trialName`
    }
  )
)