ISOMetadataExtensionInformation

ISOMetadataExtensionInformation

Format

R6Class object.

Value

Object of R6Class for modelling an ISO MetadataExtensionInformation

References

ISO 19115:2003 - Geographic information – Metadata

Author

Emmanuel Blondel <emmanuel.blondel1@gmail.com>

Super classes

geometa::geometaLogger -> geometa::ISOAbstractObject -> ISOMetadataExtensionInformation

Public fields

extensionOnLineResource

extensionOnLineResource [0..1]: ISOOnlineResource

extendedElementInformation

extendedElementInformation [0..*]: ISOExtendedElementInformation

Methods

Inherited methods


Method new()

Initializes object

Usage

Arguments

xml

object of class XMLInternalNode-class


Method setOnlineResource()

Set online resource

Usage

ISOMetadataExtensionInformation$setOnlineResource(onlineResource)

Arguments

onlineResource

object of class ISOOnlineResource


Method addElement()

Adds element

Usage

ISOMetadataExtensionInformation$addElement(element)

Arguments

element

object of class inheriting ISOExtendedElementInformation

Returns

TRUE if added, FALSE otherwise


Method delElement()

Deletes element

Usage

ISOMetadataExtensionInformation$delElement(element)

Arguments

element

object of class inheriting ISOExtendedElementInformation

Returns

TRUE if deleted, FALSE otherwise


Method clone()

The objects of this class are cloneable with this method.

Usage

ISOMetadataExtensionInformation$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

  #create an extended element information
  elem <- ISOExtendedElementInformation$new()
  elem$setName("name")
  elem$setShortName("shortName")
  elem$setDomainCode(1L)
  elem$setDefinition("some definition")
  elem$setObligation("mandatory")
  elem$setCondition("no condition")
  elem$setDatatype("characterString")
  elem$setMaximumOccurrence("string")
  elem$setDomainValue("value")
  elem$addParentEntity("none")
#> [1] TRUE
  elem$setRule("rule")
  elem$addRationale("rationale")
#> [1] TRUE
  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("someone@theorg.org")
  contact$setAddress(address)
  res <- ISOOnlineResource$new()
  res$setLinkage("http://www.somewhereovertheweb.org")
  res$setName("somename")
  contact$setOnlineResource(res)
  rp$setContactInfo(contact)
  elem$addSource(rp)
#> [1] TRUE
  
  md <- ISOMetadataExtensionInformation$new()
  md$addElement(elem)
#> [1] TRUE
  
  xml <- md$encode()
#> [geometa][INFO] Object 'ISOMetadataExtensionInformation' is VALID according to ISO 19139 XML schemas!