ISOImageryImageDescription

ISOImageryImageDescription

Format

R6Class object.

Value

Object of R6Class for modelling an ISO imagery image description

Author

Emmanuel Blondel <emmanuel.blondel1@gmail.com>

Public fields

rangeElementDescription

rangeElementDescription [0..*] : ISOImageryRangeElementDescription

Methods

Inherited methods


Method new()

Initializes object

Usage

Arguments

xml

object of class XMLInternalNode-class


Method addRangeElementDescription()

Adds range element description

Usage

ISOImageryImageDescription$addRangeElementDescription(description)

Arguments

description

object of class ISOImageryRangeElementDescription

Returns

TRUE if added, FALSE otherwise


Method delRangeElementDescription()

Deletes range element description

Usage

ISOImageryImageDescription$delRangeElementDescription(description)

Arguments

description

object of class ISOImageryRangeElementDescription

Returns

TRUE if deleted, FALSE otherwise


Method clone()

The objects of this class are cloneable with this method.

Usage

ISOImageryImageDescription$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

   #create image description
   md <- ISOImageryImageDescription$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)
   
   des <- ISOImageryRangeElementDescription$new()
   des$setName("name")
   des$setDefinition("description")
   des$addRangeElement("record1")
#> [1] TRUE
   des$addRangeElement("record2")
#> [1] TRUE
   md$addRangeElementDescription(des)
#> [1] TRUE
   xml <- md$encode()
#> [geometa][WARN] Element '{http://www.isotc211.org/2005/gmi}MI_ImageDescription': No matching global declaration available for the validation root at line 1. 
#> [geometa][WARN] Object 'ISOImageryImageDescription' is INVALID according to ISO 19139 XML schemas!