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


#' ActuatorDTO Class
#'
#' @field uri 
#' @field rdfType 
#' @field label 
#' @field brand 
#' @field model 
#' @field serialNumber 
#' @field inServiceDate 
#' @field dateOfPurchase 
#' @field dateOfLastCalibration 
#' @field personInCharge 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
ActuatorDTO <- R6::R6Class(
  'ActuatorDTO',
  public = list(
    `uri` = NULL,
    `rdfType` = NULL,
    `label` = NULL,
    `brand` = NULL,
    `model` = NULL,
    `serialNumber` = NULL,
    `inServiceDate` = NULL,
    `dateOfPurchase` = NULL,
    `dateOfLastCalibration` = NULL,
    `personInCharge` = NULL,
    initialize = function(`uri`, `rdfType`, `label`, `brand`, `model`, `serialNumber`, `inServiceDate`, `dateOfPurchase`, `dateOfLastCalibration`, `personInCharge`){
      if (!missing(`uri`)) {
        stopifnot(is.character(`uri`), length(`uri`) == 1)
        self$`uri` <- `uri`
      }
      if (!missing(`rdfType`)) {
        stopifnot(is.character(`rdfType`), length(`rdfType`) == 1)
        self$`rdfType` <- `rdfType`
      }
      if (!missing(`label`)) {
        stopifnot(is.character(`label`), length(`label`) == 1)
        self$`label` <- `label`
      }
      if (!missing(`brand`)) {
        stopifnot(is.character(`brand`), length(`brand`) == 1)
        self$`brand` <- `brand`
      }
      if (!missing(`model`)) {
        stopifnot(is.character(`model`), length(`model`) == 1)
        self$`model` <- `model`
      }
      if (!missing(`serialNumber`)) {
        stopifnot(is.character(`serialNumber`), length(`serialNumber`) == 1)
        self$`serialNumber` <- `serialNumber`
      }
      if (!missing(`inServiceDate`)) {
        stopifnot(is.character(`inServiceDate`), length(`inServiceDate`) == 1)
        self$`inServiceDate` <- `inServiceDate`
      }
      if (!missing(`dateOfPurchase`)) {
        stopifnot(is.character(`dateOfPurchase`), length(`dateOfPurchase`) == 1)
        self$`dateOfPurchase` <- `dateOfPurchase`
      }
      if (!missing(`dateOfLastCalibration`)) {
        stopifnot(is.character(`dateOfLastCalibration`), length(`dateOfLastCalibration`) == 1)
        self$`dateOfLastCalibration` <- `dateOfLastCalibration`
      }
      if (!missing(`personInCharge`)) {
        stopifnot(is.character(`personInCharge`), length(`personInCharge`) == 1)
        self$`personInCharge` <- `personInCharge`
      }
    },
    toJSON = function() {
      ActuatorDTOObject <- list()
      if (!is.null(self$`uri`)) {
        ActuatorDTOObject[['uri']] <- self$`uri`
      }
      if (!is.null(self$`rdfType`)) {
        ActuatorDTOObject[['rdfType']] <- self$`rdfType`
      }
      if (!is.null(self$`label`)) {
        ActuatorDTOObject[['label']] <- self$`label`
      }
      if (!is.null(self$`brand`)) {
        ActuatorDTOObject[['brand']] <- self$`brand`
      }
      if (!is.null(self$`model`)) {
        ActuatorDTOObject[['model']] <- self$`model`
      }
      if (!is.null(self$`serialNumber`)) {
        ActuatorDTOObject[['serialNumber']] <- self$`serialNumber`
      }
      if (!is.null(self$`inServiceDate`)) {
        ActuatorDTOObject[['inServiceDate']] <- self$`inServiceDate`
      }
      if (!is.null(self$`dateOfPurchase`)) {
        ActuatorDTOObject[['dateOfPurchase']] <- self$`dateOfPurchase`
      }
      if (!is.null(self$`dateOfLastCalibration`)) {
        ActuatorDTOObject[['dateOfLastCalibration']] <- self$`dateOfLastCalibration`
      }
      if (!is.null(self$`personInCharge`)) {
        ActuatorDTOObject[['personInCharge']] <- self$`personInCharge`
      }

      ActuatorDTOObject
    },
    fromJSON = function(ActuatorDTOJson) {
      ActuatorDTOObject <- jsonlite::fromJSON(ActuatorDTOJson)
      if (!is.null(ActuatorDTOObject$`uri`)) {
        self$`uri` <- ActuatorDTOObject$`uri`
      }
      if (!is.null(ActuatorDTOObject$`rdfType`)) {
        self$`rdfType` <- ActuatorDTOObject$`rdfType`
      }
      if (!is.null(ActuatorDTOObject$`label`)) {
        self$`label` <- ActuatorDTOObject$`label`
      }
      if (!is.null(ActuatorDTOObject$`brand`)) {
        self$`brand` <- ActuatorDTOObject$`brand`
      }
      if (!is.null(ActuatorDTOObject$`model`)) {
        self$`model` <- ActuatorDTOObject$`model`
      }
      if (!is.null(ActuatorDTOObject$`serialNumber`)) {
        self$`serialNumber` <- ActuatorDTOObject$`serialNumber`
      }
      if (!is.null(ActuatorDTOObject$`inServiceDate`)) {
        self$`inServiceDate` <- ActuatorDTOObject$`inServiceDate`
      }
      if (!is.null(ActuatorDTOObject$`dateOfPurchase`)) {
        self$`dateOfPurchase` <- ActuatorDTOObject$`dateOfPurchase`
      }
      if (!is.null(ActuatorDTOObject$`dateOfLastCalibration`)) {
        self$`dateOfLastCalibration` <- ActuatorDTOObject$`dateOfLastCalibration`
      }
      if (!is.null(ActuatorDTOObject$`personInCharge`)) {
        self$`personInCharge` <- ActuatorDTOObject$`personInCharge`
      }
    },
    fromJSONObject = function(ActuatorDTOObject) {
      if (!is.null(ActuatorDTOObject$`uri`)) {
        self$`uri` <- ActuatorDTOObject$`uri`
      }
      if (!is.null(ActuatorDTOObject$`rdfType`)) {
        self$`rdfType` <- ActuatorDTOObject$`rdfType`
      }
      if (!is.null(ActuatorDTOObject$`label`)) {
        self$`label` <- ActuatorDTOObject$`label`
      }
      if (!is.null(ActuatorDTOObject$`brand`)) {
        self$`brand` <- ActuatorDTOObject$`brand`
      }
      if (!is.null(ActuatorDTOObject$`model`)) {
        self$`model` <- ActuatorDTOObject$`model`
      }
      if (!is.null(ActuatorDTOObject$`serialNumber`)) {
        self$`serialNumber` <- ActuatorDTOObject$`serialNumber`
      }
      if (!is.null(ActuatorDTOObject$`inServiceDate`)) {
        self$`inServiceDate` <- ActuatorDTOObject$`inServiceDate`
      }
      if (!is.null(ActuatorDTOObject$`dateOfPurchase`)) {
        self$`dateOfPurchase` <- ActuatorDTOObject$`dateOfPurchase`
      }
      if (!is.null(ActuatorDTOObject$`dateOfLastCalibration`)) {
        self$`dateOfLastCalibration` <- ActuatorDTOObject$`dateOfLastCalibration`
      }
      if (!is.null(ActuatorDTOObject$`personInCharge`)) {
        self$`personInCharge` <- ActuatorDTOObject$`personInCharge`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "uri": %s,
           "rdfType": %s,
           "label": %s,
           "brand": %s,
           "model": %s,
           "serialNumber": %s,
           "inServiceDate": %s,
           "dateOfPurchase": %s,
           "dateOfLastCalibration": %s,
           "personInCharge": %s
        }',
        jsonlite::toJSON(self$`uri`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`rdfType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`label`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`brand`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`model`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`serialNumber`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`inServiceDate`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`dateOfPurchase`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`dateOfLastCalibration`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`personInCharge`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(ActuatorDTOJson) {
      ActuatorDTOObject <- jsonlite::fromJSON(ActuatorDTOJson)
      self$`uri` <- ActuatorDTOObject$`uri`
      self$`rdfType` <- ActuatorDTOObject$`rdfType`
      self$`label` <- ActuatorDTOObject$`label`
      self$`brand` <- ActuatorDTOObject$`brand`
      self$`model` <- ActuatorDTOObject$`model`
      self$`serialNumber` <- ActuatorDTOObject$`serialNumber`
      self$`inServiceDate` <- ActuatorDTOObject$`inServiceDate`
      self$`dateOfPurchase` <- ActuatorDTOObject$`dateOfPurchase`
      self$`dateOfLastCalibration` <- ActuatorDTOObject$`dateOfLastCalibration`
      self$`personInCharge` <- ActuatorDTOObject$`personInCharge`
    }
  )
)