Learn R Programming

geometa (version 0.6-2)

ISOCoverageDescription: ISOCoverageDescription

Description

ISOCoverageDescription

Usage

ISOCoverageDescription

Arguments

Value

Object of R6Class for modelling an ISOCoverageDescription

Format

R6Class object.

Fields

attributeDescription

[ISORecordType] attribute description

contentType

[character] content type

dimension

[ISORangeDimension] range dimension(s)

Methods

new(xml)

This method is used to instantiate an ISOCoverageDescription

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

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

Run this code
# NOT RUN {
   #create coverage description
   md <- ISOCoverageDescription$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)
   }
   xml <- md$encode()
   
# }

Run the code above in your browser using DataLab