geometa (version 0.6-2)

ISOImageryRequirement: ISOImageryRequirement

Description

ISOImageryRequirement

Usage

ISOImageryRequirement

Value

Object of R6Class for modelling an ISO imagery requirement

Format

R6Class object.

Fields

citation

[ISOCitation]

identifier

[ISOMetaIdentifier]

requestor

[list of ISOResponsibleParty]

recipient

[list of ISOResponsibleParty]

priority

[ISOImageryPriority]

requestedDate

[ISOImageryRequestedDate]

expiryDate

[POSIXt]

satisfiedPlan

[list of ISOImageryPlan]

Methods

new(xml)

This method is used to instantiate an ISOImageryRequirement

setCitation(citation)

Sets the citation, object of class ISOCitation

setIdentifier(identifier)

Sets an identifier, object of class character or ISOMetaIdentifier

addRequestor(requestor)

Adds a requestor, object of class ISOResponsibleParty

delRequestor(requestor)

Deletes a requestor, object of class ISOResponsibleParty

addRecipient(recipient)

Adds a recipient, object of class ISOResponsibleParty

delRecipient(recipient)

Deletes a recipient, object of class ISOResponsibleParty

setPriority(priority)

Set the priority, object of class ISOImageryPriority, or an object of class 'character' among values given by ISOImageryPriority$values().

setRequestedDate(date)

Set requested date, object of class ISOImageryRequestedDate

setExpiryDate(date)

Set expiry date, object of class POSIXt

addSatisfiedPlan(plan)

Add a satisfied plan, object of class ISOImageryPlan

delSatisfiedPlan(plan)

Deletes a satisfied plan, object of class ISOImageryPlan

References

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

Examples

# NOT RUN {
   md <- ISOImageryRequirement$new()
   md$setIdentifier("identifier")
   #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)
   rp2 <- ISOResponsibleParty$new()
   rp2$setIndividualName("someone2")
   rp2$setOrganisationName("somewhere2")
   rp2$setPositionName("someposition2")
   rp2$setRole("pointOfContact")
   contact2 <- ISOContact$new()
   phone2 <- ISOTelephone$new()
   phone2$setVoice("myphonenumber2")
   phone2$setFacsimile("myfacsimile2")
   contact1$setPhone(phone2)
   address2 <- ISOAddress$new()
   address2$setDeliveryPoint("theaddress2")
   address2$setCity("thecity2")
   address2$setPostalCode("111")
   address2$setCountry("France")
   address2$setEmail("[e-mail]")
   contact2$setAddress(address2)
   contact2$setOnlineResource(res)
   rp2$setContactInfo(contact2)
   
   #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$setCitation(ct)
   md$addRequestor(rp1)
   md$addRecipient(rp2)
   md$setPriority("highImportance")
   
   rd <- ISOImageryRequestedDate$new()
   rd$setRequestedDateOfCollection(Sys.time())
   rd$setLatestAcceptableDate(Sys.time())
   md$setRequestedDate(rd)
   md$setExpiryDate(Sys.time())
   xml <- md$encode()

# }