ISOImageryImageDescription
ISOImageryImageDescription
R6Class
object.
Object of R6Class
for modelling an ISO imagery image description
- ISO 19139 https://schemas.isotc211.org/19115/-2/gmi/1.0/gmi/#element_MI_ImageDescription
- ISO 19115-3 https://schemas.isotc211.org/19115/-3/mrc/1.0/mrc/#element_MI_ImageDescription
geometa::geometaLogger
-> geometa::ISOAbstractObject
-> geometa::ISOAbstractContentInformation
-> geometa::ISOCoverageDescription
-> geometa::ISOImageDescription
-> ISOImageryImageDescription
rangeElementDescription
rangeElementDescription [0..*] : ISOImageryRangeElementDescription
Inherited methods
geometa::geometaLogger$ERROR()
geometa::geometaLogger$INFO()
geometa::geometaLogger$WARN()
geometa::ISOAbstractObject$addFieldAttrs()
geometa::ISOAbstractObject$addListElement()
geometa::ISOAbstractObject$checkMetadataStandardCompliance()
geometa::ISOAbstractObject$contains()
geometa::ISOAbstractObject$createLocalisedProperty()
geometa::ISOAbstractObject$decode()
geometa::ISOAbstractObject$delListElement()
geometa::ISOAbstractObject$encode()
geometa::ISOAbstractObject$getClass()
geometa::ISOAbstractObject$getClassName()
geometa::ISOAbstractObject$getNamespaceDefinition()
geometa::ISOAbstractObject$isDocument()
geometa::ISOAbstractObject$isFieldInheritedFrom()
geometa::ISOAbstractObject$print()
geometa::ISOAbstractObject$save()
geometa::ISOAbstractObject$setAttr()
geometa::ISOAbstractObject$setCodeList()
geometa::ISOAbstractObject$setCodeListValue()
geometa::ISOAbstractObject$setCodeSpace()
geometa::ISOAbstractObject$setHref()
geometa::ISOAbstractObject$setId()
geometa::ISOAbstractObject$setIsNull()
geometa::ISOAbstractObject$setValue()
geometa::ISOAbstractObject$stopIfMetadataStandardIsNot()
geometa::ISOAbstractObject$validate()
geometa::ISOAbstractObject$wrapBaseElement()
geometa::ISOCoverageDescription$addDimension()
geometa::ISOCoverageDescription$delDimension()
geometa::ISOCoverageDescription$setAttributeDescription()
geometa::ISOCoverageDescription$setContentType()
geometa::ISOImageDescription$setCameraCalibrationInformationAvailability()
geometa::ISOImageDescription$setCloudCoverPercentage()
geometa::ISOImageDescription$setCompressionGenerationQuantity()
geometa::ISOImageDescription$setFilmDistortionInformationAvailability()
geometa::ISOImageDescription$setIlluminationAzimuthAngle()
geometa::ISOImageDescription$setIlluminationElevationAngle()
geometa::ISOImageDescription$setImageQualityCode()
geometa::ISOImageDescription$setImagingCondition()
geometa::ISOImageDescription$setLensDistortionInformationAvailability()
geometa::ISOImageDescription$setProcessingLevelCode()
geometa::ISOImageDescription$setRadiometricCalibrationDataAvailability()
geometa::ISOImageDescription$setTriangulationIndicator()
addRangeElementDescription()
Adds range element description
description
object of class ISOImageryRangeElementDescription
delRangeElementDescription()
Deletes range element description
description
object of class ISOImageryRangeElementDescription
#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!