geometa (version 0.4-0)

ISOCitation: ISOCitation

Description

ISOCitation

Usage

ISOCitation

Value

Object of R6Class for modelling an ISO Citation

Format

R6Class object.

Fields

presentationForm

Methods

new(xml)

This method is used to instantiate an ISOCitation

setTitle(title)

Sets the title

setAlternateTitle(alternateTitle)

Sets an alternate title

addDate(date)

Adds the date (ISODate object containing date and dateType)

setEdition(edition)

Sets the edition

setEditionDate(editionDate)

Sets the edition date, either an ISODate object containing date and dateType or a simple R date "POSIXct"/"POSIXt" object. For thesaurus citations, an ISODate should be used while for the general citation of ISODataIdentification, a simple R date should be used.

setIdentifier(identifier)

Sets the identifier as object of class 'ISOMetaIdentifier'

seCitedResponsibleParty(rp)

Sets the cited responsiblep party

setPresentationForm

Sets the presentation form

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

# NOT RUN {
 #create ISOCitation
 md <- ISOCitation$new()
 md$setTitle("sometitle")
 md$setEdition("1.0")
 md$setEditionDate(ISOdate(2015,1,1))
 md$setIdentifier(ISOMetaIdentifier$new(code = "identifier"))
 md$setPresentationForm("mapDigital")
 
 #add a cited responsible party
 rp <- ISOResponsibleParty$new()
 rp$setIndividualName("someone")
 rp$setOrganisationName("somewhere")
 rp$setPositionName("someposition")
 rp$setRole("pointOfContact")
 contact <- ISOContact$new()
 phone <- ISOTelephone$new()
 phone$setVoice("myphonenumber")
 phone$setFacsimile("myfacsimile")
 contact$setPhone(phone)
 address <- ISOAddress$new()
 address$setDeliveryPoint("theaddress")
 address$setCity("thecity")
 address$setPostalCode("111")
 address$setCountry("France")
 address$setEmail("[e-mail]")
 contact$setAddress(address)
 res <- ISOOnlineResource$new()
 res$setLinkage("http://www.somewhereovertheweb.org")
 res$setName("somename")
 contact$setOnlineResource(res)
 rp$setContactInfo(contact)
 md$setCitedResponsibleParty(rp)
 xml <- md$encode()
 
# }