geometa (version 0.7)

ISOImageDescription: ISOImageDescription

Description

ISOImageDescription

Value

Object of R6Class for modelling an ISOImageDescription

Format

R6Class object.

Fields

illuminationElevationAngle

[numeric]

illuminationAzimuthAngle

[numeric]

imagingCondition

[ISOImagingCondition]

imageQualityCode

[ISOMetaIdentifier]

cloudCoverPercentage

[numeric]

processingLevelCode

[ISOMetaIdentifier]

compressionGenerationQuantity

[integer]

triangulationIndicator

[logical]

radiometricCalibrationDataAvailability

[logical]

cameraCalibrationInformationAvailability

[logical]

filmDistortionInformationAvailability

[logical]

lensDistortionInformationAvailability

[logical]

Inherited methods from <code>ISOCoverageDescription</code>

setAttributeDescription

Sets the attribute description, as object of class ISORecordType or character

setContentType(contentType)

Sets the content Type, as object of class ISOCoverageContentType or any character value listed in ISOCoverageContentType$values()

addDimension(dimension)

Adds a dimension, object of class (or subclass of) ISORangeDimension

delDimension(dimension)

Deletes a dimension, object of class (or subclass of) ISORangeDimension

Methods

new(xml)

This method is used to instantiate an ISOImageDescription

setIlluminationElevationAngle(illuminationElevationAngle)

Sets the illumination elevation angle

setIlluminationAzimuthAngle(illuminationAzimuthAngle)

Sets the illumination azimuth angle

setImagingCondition(imagingCondition)

Sets the imaging condition, object of class 'character' or ISOImagingCondition

setImageQualityCode(code)

Sets an image quality code

setCloudCoverPercentage(cloudCoverPercentage)

Sets the cloud cover percentage

setProcessingLevelCode(code)

Sets the processing level code

setCompressionGenerationQuantity(quantity)

Sets compression generation quantity

setTriangulationIndicator(triangulationIndicator)

Sets the triangulation indicator

setRadiometricCalibrationDataAvailability(radiometricCalibrationDataAvailability)

Sets TRUE if radiometric calibration data is available, FALSE otherwise

setCameraCalibrationInformationAvailability(cameraCalibrationInformationAvailability)

Sets TRUE if camera calibration information is available, FALSE otherwise

setFilmDistortionInformationAvailability(filmDistortionInformationAvailability)

Sets TRUE if film distortion information is available, FALSE otherwise

setLensDistortionInformationAvailability(lensDistortionInformationAvailability)

Sets TRUE if lens distortion information is available, FALSE otherwise

Author

Emmanuel Blondel <[e-mail]>

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

   #create image description
   md <- ISOImageDescription$new()
   md$setAttributeDescription("test")
   md$setContentType("modelResult")
   
   #adding 3 arbitrary dimensions
   for(i in 1:3){
      band <- ISOBand$new()
      mn <- ISOMemberName$new(aName = sprintf("name %s",i), attributeType = sprintf("type %s",i))
      band$setSequenceIdentifier(mn)
      band$setDescriptor("descriptor")
      band$setMaxValue(10)
      band$setMinValue(1)
      gml <- GMLBaseUnit$new(id = sprintf("ID%s",i))
      gml$setDescriptionReference("someref")
      gml$setIdentifier("identifier", "codespace")
      gml$addName("name1", "codespace")
      gml$addName("name2", "codespace")
      gml$setQuantityTypeReference("someref")
      gml$setCatalogSymbol("symbol")
      gml$setUnitsSystem("somelink")
      band$setUnits(gml)
      band$setPeakResponse(9)
      band$setBitsPerValue(5)
      band$setToneGradation(100)
      band$setScaleFactor(1)
      band$setOffset(4)
      md$addDimension(band)
   }
   
   md$setIlluminationElevationAngle(15)
   md$setIlluminationAzimuthAngle(10)
   md$setImagingCondition("rain")
   md$setImageQualityCode("bad")
   md$setCloudCoverPercentage(90)
   md$setProcessingLevelCode("high")
   md$setCompressionGenerationQuantity(1L)
   md$setTriangulationIndicator(FALSE)
   md$setRadiometricCalibrationDataAvailability(FALSE)
   md$setCameraCalibrationInformationAvailability(FALSE)
   md$setFilmDistortionInformationAvailability(FALSE)
   md$setLensDistortionInformationAvailability(FALSE)
   
   xml <- md$encode()