ISOCitation: ISOCitation

Description Usage Format Value Fields Methods Author(s) References Examples

Description

ISOCitation

Usage

1

Format

R6Class object.

Value

Object of R6Class for modelling an ISO Citation

Fields

title
alternateTitle
date
edition
editionDate
identifier
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

Author(s)

Emmanuel Blondel <[email protected]>

References

ISO 19115:2003 - Geographic information – Metadata

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#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("[email protected]")
 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()

geometa documentation built on Nov. 28, 2017, 5:05 p.m.