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


#' StudySearchDTO Class
#'
#' @field commonCropName 
#' @field seasonDbId 
#' @field studyDbIds 
#' @field studyNames 
#' @field sortBy 
#' @field sortOrder 
#' @field page 
#' @field pageSize 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
StudySearchDTO <- R6::R6Class(
  'StudySearchDTO',
  public = list(
    `commonCropName` = NULL,
    `seasonDbId` = NULL,
    `studyDbIds` = NULL,
    `studyNames` = NULL,
    `sortBy` = NULL,
    `sortOrder` = NULL,
    `page` = NULL,
    `pageSize` = NULL,
    initialize = function(`commonCropName`, `seasonDbId`, `studyDbIds`, `studyNames`, `sortBy`, `sortOrder`, `page`, `pageSize`){
      if (!missing(`commonCropName`)) {
        stopifnot(is.character(`commonCropName`), length(`commonCropName`) == 1)
        self$`commonCropName` <- `commonCropName`
      }
      if (!missing(`seasonDbId`)) {
        stopifnot(is.character(`seasonDbId`), length(`seasonDbId`) == 1)
        self$`seasonDbId` <- `seasonDbId`
      }
      if (!missing(`studyDbIds`)) {
        stopifnot(is.list(`studyDbIds`), length(`studyDbIds`) != 0)
        lapply(`studyDbIds`, function(x) stopifnot(is.character(x)))
        self$`studyDbIds` <- `studyDbIds`
      }
      if (!missing(`studyNames`)) {
        stopifnot(is.list(`studyNames`), length(`studyNames`) != 0)
        lapply(`studyNames`, function(x) stopifnot(is.character(x)))
        self$`studyNames` <- `studyNames`
      }
      if (!missing(`sortBy`)) {
        stopifnot(is.character(`sortBy`), length(`sortBy`) == 1)
        self$`sortBy` <- `sortBy`
      }
      if (!missing(`sortOrder`)) {
        stopifnot(is.character(`sortOrder`), length(`sortOrder`) == 1)
        self$`sortOrder` <- `sortOrder`
      }
      if (!missing(`page`)) {
        stopifnot(is.numeric(`page`), length(`page`) == 1)
        self$`page` <- `page`
      }
      if (!missing(`pageSize`)) {
        stopifnot(is.numeric(`pageSize`), length(`pageSize`) == 1)
        self$`pageSize` <- `pageSize`
      }
    },
    toJSON = function() {
      StudySearchDTOObject <- list()
      if (!is.null(self$`commonCropName`)) {
        StudySearchDTOObject[['commonCropName']] <- self$`commonCropName`
      }
      if (!is.null(self$`seasonDbId`)) {
        StudySearchDTOObject[['seasonDbId']] <- self$`seasonDbId`
      }
      if (!is.null(self$`studyDbIds`)) {
        StudySearchDTOObject[['studyDbIds']] <- self$`studyDbIds`
      }
      if (!is.null(self$`studyNames`)) {
        StudySearchDTOObject[['studyNames']] <- self$`studyNames`
      }
      if (!is.null(self$`sortBy`)) {
        StudySearchDTOObject[['sortBy']] <- self$`sortBy`
      }
      if (!is.null(self$`sortOrder`)) {
        StudySearchDTOObject[['sortOrder']] <- self$`sortOrder`
      }
      if (!is.null(self$`page`)) {
        StudySearchDTOObject[['page']] <- self$`page`
      }
      if (!is.null(self$`pageSize`)) {
        StudySearchDTOObject[['pageSize']] <- self$`pageSize`
      }

      StudySearchDTOObject
    },
    fromJSON = function(StudySearchDTOJson) {
      StudySearchDTOObject <- jsonlite::fromJSON(StudySearchDTOJson)
      if (!is.null(StudySearchDTOObject$`commonCropName`)) {
        self$`commonCropName` <- StudySearchDTOObject$`commonCropName`
      }
      if (!is.null(StudySearchDTOObject$`seasonDbId`)) {
        self$`seasonDbId` <- StudySearchDTOObject$`seasonDbId`
      }
      if (!is.null(StudySearchDTOObject$`studyDbIds`)) {
        self$`studyDbIds` <- StudySearchDTOObject$`studyDbIds`
      }
      if (!is.null(StudySearchDTOObject$`studyNames`)) {
        self$`studyNames` <- StudySearchDTOObject$`studyNames`
      }
      if (!is.null(StudySearchDTOObject$`sortBy`)) {
        self$`sortBy` <- StudySearchDTOObject$`sortBy`
      }
      if (!is.null(StudySearchDTOObject$`sortOrder`)) {
        self$`sortOrder` <- StudySearchDTOObject$`sortOrder`
      }
      if (!is.null(StudySearchDTOObject$`page`)) {
        self$`page` <- StudySearchDTOObject$`page`
      }
      if (!is.null(StudySearchDTOObject$`pageSize`)) {
        self$`pageSize` <- StudySearchDTOObject$`pageSize`
      }
    },
    fromJSONObject = function(StudySearchDTOObject) {
      if (!is.null(StudySearchDTOObject$`commonCropName`)) {
        self$`commonCropName` <- StudySearchDTOObject$`commonCropName`
      }
      if (!is.null(StudySearchDTOObject$`seasonDbId`)) {
        self$`seasonDbId` <- StudySearchDTOObject$`seasonDbId`
      }
      if (!is.null(StudySearchDTOObject$`studyDbIds`)) {
        self$`studyDbIds` <- StudySearchDTOObject$`studyDbIds`
      }
      if (!is.null(StudySearchDTOObject$`studyNames`)) {
        self$`studyNames` <- StudySearchDTOObject$`studyNames`
      }
      if (!is.null(StudySearchDTOObject$`sortBy`)) {
        self$`sortBy` <- StudySearchDTOObject$`sortBy`
      }
      if (!is.null(StudySearchDTOObject$`sortOrder`)) {
        self$`sortOrder` <- StudySearchDTOObject$`sortOrder`
      }
      if (!is.null(StudySearchDTOObject$`page`)) {
        self$`page` <- StudySearchDTOObject$`page`
      }
      if (!is.null(StudySearchDTOObject$`pageSize`)) {
        self$`pageSize` <- StudySearchDTOObject$`pageSize`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "commonCropName": %s,
           "seasonDbId": %s,
           "studyDbIds": [%s],
           "studyNames": [%s],
           "sortBy": %s,
           "sortOrder": %s,
           "page": %s,
           "pageSize": %s
        }',
        jsonlite::toJSON(self$`commonCropName`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`seasonDbId`,auto_unbox=TRUE, null = "null"),
        lapply(self$`studyDbIds`, function(x) paste(paste0('"', x, '"'), sep=",")),
        lapply(self$`studyNames`, function(x) paste(paste0('"', x, '"'), sep=",")),
        jsonlite::toJSON(self$`sortBy`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`sortOrder`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`page`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`pageSize`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(StudySearchDTOJson) {
      StudySearchDTOObject <- jsonlite::fromJSON(StudySearchDTOJson)
      self$`commonCropName` <- StudySearchDTOObject$`commonCropName`
      self$`seasonDbId` <- StudySearchDTOObject$`seasonDbId`
      self$`studyDbIds` <- StudySearchDTOObject$`studyDbIds`
      self$`studyNames` <- StudySearchDTOObject$`studyNames`
      self$`sortBy` <- StudySearchDTOObject$`sortBy`
      self$`sortOrder` <- StudySearchDTOObject$`sortOrder`
      self$`page` <- StudySearchDTOObject$`page`
      self$`pageSize` <- StudySearchDTOObject$`pageSize`
    }
  )
)