R/OrderBy.r

In OpenSILEX/opensilexClientToolsR: R Package Client for OpenSilex API

# OpenSilex API
#
# No description provided (generated by Swagger Codegen https://github.com/swagger-api/swagger-codegen)
#
# OpenAPI spec version: 1.0.0-rc+2
# 
# Generated by: https://github.com/swagger-api/swagger-codegen.git


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

      OrderByObject
    },
    fromJSON = function(OrderByJson) {
      OrderByObject <- jsonlite::fromJSON(OrderByJson)
      if (!is.null(OrderByObject$`fieldName`)) {
        self$`fieldName` <- OrderByObject$`fieldName`
      }
      if (!is.null(OrderByObject$`order`)) {
        self$`order` <- OrderByObject$`order`
      }
    },
    fromJSONObject = function(OrderByObject) {
      if (!is.null(OrderByObject$`fieldName`)) {
        self$`fieldName` <- OrderByObject$`fieldName`
      }
      if (!is.null(OrderByObject$`order`)) {
        self$`order` <- OrderByObject$`order`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "fieldName": %s,
           "order": %s
        }',
        ifelse(is.null(self$`fieldName`), "null",jsonlite::toJSON(self$`fieldName`,auto_unbox=TRUE, null = "null")),
        ifelse(is.null(self$`order`), "null",jsonlite::toJSON(self$`order`,auto_unbox=TRUE, null = "null"))
      )
    },
    fromJSONString = function(OrderByJson) {
      OrderByObject <- jsonlite::fromJSON(OrderByJson)
      self$`fieldName` <- OrderByObject$`fieldName`
      self$`order` <- OrderByObject$`order`
    }
  )
)