geometa (version 0.7)

ISOImageryProcessing: ISOImageryProcessing

Description

ISOImageryProcessing

Value

Object of R6Class for modelling an ISO imagery processing

Format

R6Class object.

Fields

identifier

[ISOMetaIdentifier]

softwareReference

[list of ISOCitation]

procedureDescription

[character|ISOLocalisedCharacterString]

documentation

[list of ISOCitation]

rumTimeParameters

[character]

algorithm

[list of ISOImageryAlgorithm]

Methods

new(xml)

This method is used to instantiate an ISOImageryProcessing

setIdentifier(identifier)

Sets an identifier, object of class character or ISOMetaIdentifier

addSoftwareReference(softwareReference)

Adds software reference, object of class ISOCitation

delSoftwareReference(softwareReference)

Deletes a software reference, object of class ISOCitation

setProcedureDescription(description, locales)

Sets a description (object of class "character"). Locale names can be specified as list with the locales argument.

addDocumentation(documentation)

Adds documentation, object of class ISOCitation

delDocumentation(documentation)

Deletes documentation, object of class ISOCitation

setRunTimeParameters(params)

Set the runtime parameters, object of class character

addAlgorithm(algorithm)

Add a algorithm, object of class ISOImageryAlgorithm

delAlgorithm(algorithm)

Deletes a algorithm, object of class ISOImageryAlgorithm

Author

Emmanuel Blondel <[e-mail]>

References

ISO 19115-2:2009 - Geographic information -- Metadata Part 2: Extensions for imagery and gridded data

Examples

   md <- ISOImageryProcessing$new()
   
   #add citation
   rp1 <- ISOResponsibleParty$new()
   rp1$setIndividualName("someone1")
   rp1$setOrganisationName("somewhere1")
   rp1$setPositionName("someposition1")
   rp1$setRole("pointOfContact")
   contact1 <- ISOContact$new()
   phone1 <- ISOTelephone$new()
   phone1$setVoice("myphonenumber1")
   phone1$setFacsimile("myfacsimile1")
   contact1$setPhone(phone1)
   address1 <- ISOAddress$new()
   address1$setDeliveryPoint("theaddress1")
   address1$setCity("thecity1")
   address1$setPostalCode("111")
   address1$setCountry("France")
   address1$setEmail("[e-mail]")
   contact1$setAddress(address1)
   res <- ISOOnlineResource$new()
   res$setLinkage("http://www.somewhereovertheweb.org")
   res$setName("somename")
   contact1$setOnlineResource(res)
   rp1$setContactInfo(contact1)
   
   #citation
   ct <- ISOCitation$new()
   ct$setTitle("sometitle")
   d <- ISODate$new()
   d$setDate(ISOdate(2015, 1, 1, 1))
   d$setDateType("publication")
   ct$addDate(d)
   ct$setEdition("1.0")
   ct$setEditionDate(ISOdate(2015,1,1))
   ct$addIdentifier(ISOMetaIdentifier$new(code = "identifier"))
   ct$addPresentationForm("mapDigital")
   ct$addCitedResponsibleParty(rp1)
   
   md$setIdentifier("identifier")
   md$setProcedureDescription("some description")
   md$addSoftwareReference(ct)
   md$addDocumentation(ct)
   md$setRunTimeParameters("params")
   
   xml <- md$encode()