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


#' MetadataFileUAVDTO Class
#'
#' @field installation 
#' @field groupPlotType 
#' @field groupPlotAlias 
#' @field groupPlotUri 
#' @field groupPlotSpecies 
#' @field pilot 
#' @field cameraType 
#' @field cameraAlias 
#' @field cameraUri 
#' @field vectorType 
#' @field vectorAlias 
#' @field vectorUri 
#' @field radiometricTargetAlias 
#' @field radiometricTargetUri 
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
MetadataFileUAVDTO <- R6::R6Class(
  'MetadataFileUAVDTO',
  public = list(
    `installation` = NULL,
    `groupPlotType` = NULL,
    `groupPlotAlias` = NULL,
    `groupPlotUri` = NULL,
    `groupPlotSpecies` = NULL,
    `pilot` = NULL,
    `cameraType` = NULL,
    `cameraAlias` = NULL,
    `cameraUri` = NULL,
    `vectorType` = NULL,
    `vectorAlias` = NULL,
    `vectorUri` = NULL,
    `radiometricTargetAlias` = NULL,
    `radiometricTargetUri` = NULL,
    initialize = function(`installation`, `groupPlotType`, `groupPlotAlias`, `groupPlotUri`, `groupPlotSpecies`, `pilot`, `cameraType`, `cameraAlias`, `cameraUri`, `vectorType`, `vectorAlias`, `vectorUri`, `radiometricTargetAlias`, `radiometricTargetUri`){
      if (!missing(`installation`)) {
        stopifnot(is.character(`installation`), length(`installation`) == 1)
        self$`installation` <- `installation`
      }
      if (!missing(`groupPlotType`)) {
        stopifnot(is.character(`groupPlotType`), length(`groupPlotType`) == 1)
        self$`groupPlotType` <- `groupPlotType`
      }
      if (!missing(`groupPlotAlias`)) {
        stopifnot(is.character(`groupPlotAlias`), length(`groupPlotAlias`) == 1)
        self$`groupPlotAlias` <- `groupPlotAlias`
      }
      if (!missing(`groupPlotUri`)) {
        stopifnot(is.character(`groupPlotUri`), length(`groupPlotUri`) == 1)
        self$`groupPlotUri` <- `groupPlotUri`
      }
      if (!missing(`groupPlotSpecies`)) {
        stopifnot(is.character(`groupPlotSpecies`), length(`groupPlotSpecies`) == 1)
        self$`groupPlotSpecies` <- `groupPlotSpecies`
      }
      if (!missing(`pilot`)) {
        stopifnot(is.character(`pilot`), length(`pilot`) == 1)
        self$`pilot` <- `pilot`
      }
      if (!missing(`cameraType`)) {
        stopifnot(is.character(`cameraType`), length(`cameraType`) == 1)
        self$`cameraType` <- `cameraType`
      }
      if (!missing(`cameraAlias`)) {
        stopifnot(is.character(`cameraAlias`), length(`cameraAlias`) == 1)
        self$`cameraAlias` <- `cameraAlias`
      }
      if (!missing(`cameraUri`)) {
        stopifnot(is.character(`cameraUri`), length(`cameraUri`) == 1)
        self$`cameraUri` <- `cameraUri`
      }
      if (!missing(`vectorType`)) {
        stopifnot(is.character(`vectorType`), length(`vectorType`) == 1)
        self$`vectorType` <- `vectorType`
      }
      if (!missing(`vectorAlias`)) {
        stopifnot(is.character(`vectorAlias`), length(`vectorAlias`) == 1)
        self$`vectorAlias` <- `vectorAlias`
      }
      if (!missing(`vectorUri`)) {
        stopifnot(is.character(`vectorUri`), length(`vectorUri`) == 1)
        self$`vectorUri` <- `vectorUri`
      }
      if (!missing(`radiometricTargetAlias`)) {
        stopifnot(is.character(`radiometricTargetAlias`), length(`radiometricTargetAlias`) == 1)
        self$`radiometricTargetAlias` <- `radiometricTargetAlias`
      }
      if (!missing(`radiometricTargetUri`)) {
        stopifnot(is.character(`radiometricTargetUri`), length(`radiometricTargetUri`) == 1)
        self$`radiometricTargetUri` <- `radiometricTargetUri`
      }
    },
    toJSON = function() {
      MetadataFileUAVDTOObject <- list()
      if (!is.null(self$`installation`)) {
        MetadataFileUAVDTOObject[['installation']] <- self$`installation`
      }
      if (!is.null(self$`groupPlotType`)) {
        MetadataFileUAVDTOObject[['groupPlotType']] <- self$`groupPlotType`
      }
      if (!is.null(self$`groupPlotAlias`)) {
        MetadataFileUAVDTOObject[['groupPlotAlias']] <- self$`groupPlotAlias`
      }
      if (!is.null(self$`groupPlotUri`)) {
        MetadataFileUAVDTOObject[['groupPlotUri']] <- self$`groupPlotUri`
      }
      if (!is.null(self$`groupPlotSpecies`)) {
        MetadataFileUAVDTOObject[['groupPlotSpecies']] <- self$`groupPlotSpecies`
      }
      if (!is.null(self$`pilot`)) {
        MetadataFileUAVDTOObject[['pilot']] <- self$`pilot`
      }
      if (!is.null(self$`cameraType`)) {
        MetadataFileUAVDTOObject[['cameraType']] <- self$`cameraType`
      }
      if (!is.null(self$`cameraAlias`)) {
        MetadataFileUAVDTOObject[['cameraAlias']] <- self$`cameraAlias`
      }
      if (!is.null(self$`cameraUri`)) {
        MetadataFileUAVDTOObject[['cameraUri']] <- self$`cameraUri`
      }
      if (!is.null(self$`vectorType`)) {
        MetadataFileUAVDTOObject[['vectorType']] <- self$`vectorType`
      }
      if (!is.null(self$`vectorAlias`)) {
        MetadataFileUAVDTOObject[['vectorAlias']] <- self$`vectorAlias`
      }
      if (!is.null(self$`vectorUri`)) {
        MetadataFileUAVDTOObject[['vectorUri']] <- self$`vectorUri`
      }
      if (!is.null(self$`radiometricTargetAlias`)) {
        MetadataFileUAVDTOObject[['radiometricTargetAlias']] <- self$`radiometricTargetAlias`
      }
      if (!is.null(self$`radiometricTargetUri`)) {
        MetadataFileUAVDTOObject[['radiometricTargetUri']] <- self$`radiometricTargetUri`
      }

      MetadataFileUAVDTOObject
    },
    fromJSON = function(MetadataFileUAVDTOJson) {
      MetadataFileUAVDTOObject <- jsonlite::fromJSON(MetadataFileUAVDTOJson)
      if (!is.null(MetadataFileUAVDTOObject$`installation`)) {
        self$`installation` <- MetadataFileUAVDTOObject$`installation`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotType`)) {
        self$`groupPlotType` <- MetadataFileUAVDTOObject$`groupPlotType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotAlias`)) {
        self$`groupPlotAlias` <- MetadataFileUAVDTOObject$`groupPlotAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotUri`)) {
        self$`groupPlotUri` <- MetadataFileUAVDTOObject$`groupPlotUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotSpecies`)) {
        self$`groupPlotSpecies` <- MetadataFileUAVDTOObject$`groupPlotSpecies`
      }
      if (!is.null(MetadataFileUAVDTOObject$`pilot`)) {
        self$`pilot` <- MetadataFileUAVDTOObject$`pilot`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraType`)) {
        self$`cameraType` <- MetadataFileUAVDTOObject$`cameraType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraAlias`)) {
        self$`cameraAlias` <- MetadataFileUAVDTOObject$`cameraAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraUri`)) {
        self$`cameraUri` <- MetadataFileUAVDTOObject$`cameraUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorType`)) {
        self$`vectorType` <- MetadataFileUAVDTOObject$`vectorType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorAlias`)) {
        self$`vectorAlias` <- MetadataFileUAVDTOObject$`vectorAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorUri`)) {
        self$`vectorUri` <- MetadataFileUAVDTOObject$`vectorUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`radiometricTargetAlias`)) {
        self$`radiometricTargetAlias` <- MetadataFileUAVDTOObject$`radiometricTargetAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`radiometricTargetUri`)) {
        self$`radiometricTargetUri` <- MetadataFileUAVDTOObject$`radiometricTargetUri`
      }
    },
    fromJSONObject = function(MetadataFileUAVDTOObject) {
      if (!is.null(MetadataFileUAVDTOObject$`installation`)) {
        self$`installation` <- MetadataFileUAVDTOObject$`installation`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotType`)) {
        self$`groupPlotType` <- MetadataFileUAVDTOObject$`groupPlotType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotAlias`)) {
        self$`groupPlotAlias` <- MetadataFileUAVDTOObject$`groupPlotAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotUri`)) {
        self$`groupPlotUri` <- MetadataFileUAVDTOObject$`groupPlotUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`groupPlotSpecies`)) {
        self$`groupPlotSpecies` <- MetadataFileUAVDTOObject$`groupPlotSpecies`
      }
      if (!is.null(MetadataFileUAVDTOObject$`pilot`)) {
        self$`pilot` <- MetadataFileUAVDTOObject$`pilot`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraType`)) {
        self$`cameraType` <- MetadataFileUAVDTOObject$`cameraType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraAlias`)) {
        self$`cameraAlias` <- MetadataFileUAVDTOObject$`cameraAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`cameraUri`)) {
        self$`cameraUri` <- MetadataFileUAVDTOObject$`cameraUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorType`)) {
        self$`vectorType` <- MetadataFileUAVDTOObject$`vectorType`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorAlias`)) {
        self$`vectorAlias` <- MetadataFileUAVDTOObject$`vectorAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`vectorUri`)) {
        self$`vectorUri` <- MetadataFileUAVDTOObject$`vectorUri`
      }
      if (!is.null(MetadataFileUAVDTOObject$`radiometricTargetAlias`)) {
        self$`radiometricTargetAlias` <- MetadataFileUAVDTOObject$`radiometricTargetAlias`
      }
      if (!is.null(MetadataFileUAVDTOObject$`radiometricTargetUri`)) {
        self$`radiometricTargetUri` <- MetadataFileUAVDTOObject$`radiometricTargetUri`
      }
    },
    toJSONString = function() {
       sprintf(
        '{
           "installation": %s,
           "groupPlotType": %s,
           "groupPlotAlias": %s,
           "groupPlotUri": %s,
           "groupPlotSpecies": %s,
           "pilot": %s,
           "cameraType": %s,
           "cameraAlias": %s,
           "cameraUri": %s,
           "vectorType": %s,
           "vectorAlias": %s,
           "vectorUri": %s,
           "radiometricTargetAlias": %s,
           "radiometricTargetUri": %s
        }',
        jsonlite::toJSON(self$`installation`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`groupPlotType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`groupPlotAlias`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`groupPlotUri`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`groupPlotSpecies`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`pilot`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`cameraType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`cameraAlias`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`cameraUri`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`vectorType`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`vectorAlias`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`vectorUri`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`radiometricTargetAlias`,auto_unbox=TRUE, null = "null"),
        jsonlite::toJSON(self$`radiometricTargetUri`,auto_unbox=TRUE, null = "null")
      )
    },
    fromJSONString = function(MetadataFileUAVDTOJson) {
      MetadataFileUAVDTOObject <- jsonlite::fromJSON(MetadataFileUAVDTOJson)
      self$`installation` <- MetadataFileUAVDTOObject$`installation`
      self$`groupPlotType` <- MetadataFileUAVDTOObject$`groupPlotType`
      self$`groupPlotAlias` <- MetadataFileUAVDTOObject$`groupPlotAlias`
      self$`groupPlotUri` <- MetadataFileUAVDTOObject$`groupPlotUri`
      self$`groupPlotSpecies` <- MetadataFileUAVDTOObject$`groupPlotSpecies`
      self$`pilot` <- MetadataFileUAVDTOObject$`pilot`
      self$`cameraType` <- MetadataFileUAVDTOObject$`cameraType`
      self$`cameraAlias` <- MetadataFileUAVDTOObject$`cameraAlias`
      self$`cameraUri` <- MetadataFileUAVDTOObject$`cameraUri`
      self$`vectorType` <- MetadataFileUAVDTOObject$`vectorType`
      self$`vectorAlias` <- MetadataFileUAVDTOObject$`vectorAlias`
      self$`vectorUri` <- MetadataFileUAVDTOObject$`vectorUri`
      self$`radiometricTargetAlias` <- MetadataFileUAVDTOObject$`radiometricTargetAlias`
      self$`radiometricTargetUri` <- MetadataFileUAVDTOObject$`radiometricTargetUri`
    }
  )
)