Learn R Programming

geometa (version 0.7)

ISOResponsibleParty: ISOResponsibleParty

Description

ISOResponsibleParty

Arguments

Value

Object of R6Class for modelling an ISO ResponsibleParty

Format

R6Class object.

Fields

individualName

[character] Individual name

organisationName

[character] Organization name

positionName

[character] Position name

contactInfo

[ISOContact] contact information

role

[ISORole] role

Methods

new(xml,value)

This method is used to instantiate an ISOResponsibleParty

setIndividualName(invidualName, locales)

Set the individual name. Locale names can be specified as list with the locales argument.

setOrganisationName(organisationName, locales)

Set the organisation name. Locale names can be specified as list with the locales argument.

setPositionName(positionName, locales)

Set the position name. Locale names can be specified as list with the locales argument.

setContactInfo(contactInfo)

Set the contact info, should be an object of class ISOContact

setRole(role)

Set the role, either an object of class "character" (among values available in ISORole$values()) or an object of class ISORole.

Author

Emmanuel Blondel <emmanuel.blondel1@gmail.com>

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

Run this code
  #create a responsible party element
  md <- ISOResponsibleParty$new()
  md$setIndividualName("someone")
  md$setOrganisationName("somewhere")
  md$setPositionName("someposition")
  md$setRole("pointOfContact")
  
  #add contact
  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("someone@theorg.org")
  contact$setAddress(address)
  res <- ISOOnlineResource$new()
  res$setLinkage("http://www.somewhereovertheweb.org")
  res$setName("somename")
  contact$setOnlineResource(res)
  md$setContactInfo(contact)
  
  xml <- md$encode()
  

Run the code above in your browser using DataLab