Learn R Programming

geometa (version 0.6-2)

ISOSource: ISOSource

Description

ISOSource

Usage

ISOSource

Arguments

Value

Object of R6Class for modelling an ISO Source

Format

R6Class object.

Fields

description

[character] source description

scaleDenominator

[ISORepresentativeFraction] sale denominator

sourceReferenceSystem

[ISOReferenceSystem] source reference system

sourceCitation

[ISOCitation] the source citation

sourceExtent

[ISOExtent] the source extent(s)

sourceStep

[ISOProcessStep] the source process step(s)

Methods

new(xml)

This method is used to instantiate an ISOSource

setDescription(description, locales)

Sets the source description. Locale names can be specified as list with the locales argument.

setScaleDenominator(denominator)

Sets the scale denominator (object of class ISORepresentativeFraction or an integer value or other value coercable to integer)

setReferenceSystem(referenceSystem)

Sets the source reference system (object of class ISOReferenceSystem)

setCitation(citation)

Sets the source citation (object of class ISOCitation)

addExtent(extent)

Adds the source extent (object of class ISOExtent)

delExtent(extent)

Deletes a source extent (object of class ISOExtent)

addProcessStep(processStep)

Adds a source process step (object of class ISOProcessStep)

delProcessStep(processStep)

Deletes a source processStep(object of class ISOProcessStep)

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

Run this code
# NOT RUN {
  src <- ISOSource$new()
  src$setDescription("description")
  src$setScaleDenominator(1L)
  
  rs <- ISOReferenceSystem$new()
  rsId <- ISOReferenceIdentifier$new(code = "4326", codeSpace = "EPSG")
  rs$setReferenceSystemIdentifier(rsId)
  src$setReferenceSystem(rs)
  
  cit <- ISOCitation$new()
  cit$setTitle("sometitle") #and more citation properties...
  src$setCitation(cit)
  
  extent <- ISOExtent$new()
  bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
  extent$setGeographicElement(bbox)
  src$addExtent(extent)
  xml <- src$encode()
  
# }

Run the code above in your browser using DataLab