Learn R Programming

geometa (version 0.9.1)

ISOContact: ISOContact

Description

ISOContact

ISOContact

Arguments

Value

Object of R6Class for modelling an ISO Contact

Format

R6Class object.

Author

Emmanuel Blondel <emmanuel.blondel1@gmail.com>

Super classes

geometa::geometaLogger -> geometa::ISOAbstractObject -> ISOContact

Public fields

phone

phone

address

address

onlineResource

online resource

hoursOfService

hours of service

contactInstructions

contact instructions

contactType

contact type

Methods

Inherited methods


Method new()

Initializes object

Usage

ISOContact$new(xml = NULL)

Arguments

xml

object of class XMLInternalNode-class


Method setPhone()

Set phone (with ISO 19139)

Usage

ISOContact$setPhone(phone)

Arguments

phone

object of class ISOTelephone


Method addPhone()

Adds phone (with ISO 19115-3)

Usage

ISOContact$addPhone(phone)

Arguments

phone

object tof class ISOTelephone

Returns

TRUE if added, FALSE otherwise


Method delPhone()

Deletes phone (with ISO 19115-3)

Usage

ISOContact$delPhone(phone)

Arguments

phone

object tof class ISOTelephone

Returns

TRUE if deleted, FALSE otherwise


Method setAddress()

Set address (with ISO 19139)

Usage

ISOContact$setAddress(address)

Arguments

address

object of class ISOAddress


Method addAddress()

Adds address (with ISO 19115-3)

Usage

ISOContact$addAddress(address)

Arguments

address

object of class ISOAddress

Returns

TRUE if added, FALSE otherwise


Method delAddress()

Deletes address (with ISO 19115-3)

Usage

ISOContact$delAddress(address)

Arguments

address

object of class ISOAddress

Returns

TRUE if deleted, FALSE otherwise


Method setOnlineResource()

Set online resource (with ISO 19139)

Usage

ISOContact$setOnlineResource(onlineResource)

Arguments

onlineResource

online resource, object of class ISOOnlineResource


Method addOnlineResource()

Adds online resource (with ISO 19115-3)

Usage

ISOContact$addOnlineResource(onlineResource)

Arguments

onlineResource

online resource, object of class ISOOnlineResource

Returns

TRUE if added, FALSE otherwise


Method delOnlineResource()

Deletes online resource (with ISO 19115-3)

Usage

ISOContact$delOnlineResource(onlineResource)

Arguments

onlineResource

online resource, object of class ISOOnlineResource

Returns

TRUE if deleted, FALSE otherwise


Method addHoursOfService()

Adds hours of service (with ISO 19115-3)

Usage

ISOContact$addHoursOfService(hoursOfService)

Arguments

hoursOfService

object of class character

Returns

TRUE if added, FALSE otherwise


Method delHoursOfService()

Deletes hours of service (with ISO 19115-3)

Usage

ISOContact$delHoursOfService(hoursOfService)

Arguments

hoursOfService

object of class character

Returns

TRUE if deleted, FALSE otherwise


Method setContactInstructions()

Set contact instructions

Usage

ISOContact$setContactInstructions(contactInstructions, locales = NULL)

Arguments

contactInstructions

contact instructions

locales

list of localized editions. Default is NULL


Method setContactType()

Set contact type

Usage

ISOContact$setContactType(contactType, locales = NULL)

Arguments

contactType

contact type

locales

list of localized editions. Default is NULL


Method clone()

The objects of this class are cloneable with this method.

Usage

ISOContact$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

References

- ISO 19139 https://schemas.isotc211.org/19139/-/gmd/1.0/gmd/#element_CI_Contact

- ISO 19115-3 https://schemas.isotc211.org/19115/-3/cit/2.0/cit/#element_CI_Contact

Examples

Run this code
 md <- ISOContact$new()
 phone <- ISOTelephone$new()
 phone$setVoice("myphonenumber")
 phone$setFacsimile("myfacsimile")
 md$setPhone(phone)
 address <- ISOAddress$new()
 address$setDeliveryPoint("theaddress")
 address$setCity("thecity")
 address$setPostalCode("111")
 address$setCountry("France")
 address$setEmail("someone@theorg.org")
 md$setAddress(address)
 res <- ISOOnlineResource$new()
 res$setLinkage("http://www.somewhereovertheweb.org")
 res$setName("somename")
 md$setOnlineResource(res)
 xml <- md$encode()
 

Run the code above in your browser using DataLab