ISOImageryPlatform | R Documentation |
ISOImageryPlatform
ISOImageryPlatform
R6Class
object.
Object of R6Class
for modelling an ISO imagery platform
geometa::geometaLogger
-> geometa::ISOAbstractObject
-> ISOImageryPlatform
citation
citation [0..*]: ISOCitation
identifier
identifier [1..1]: ISOMetaIdentifier
description
description [0..1]: character|ISOLocalisedCharacterString
sponsor
sponsor [0..*]: ISOResponsibleParty
instrument
instrument [0..*]: ISOImageryInstrument
geometa::geometaLogger$ERROR()
geometa::geometaLogger$INFO()
geometa::geometaLogger$WARN()
geometa::ISOAbstractObject$addFieldAttrs()
geometa::ISOAbstractObject$addListElement()
geometa::ISOAbstractObject$contains()
geometa::ISOAbstractObject$createLocalisedProperty()
geometa::ISOAbstractObject$decode()
geometa::ISOAbstractObject$delListElement()
geometa::ISOAbstractObject$encode()
geometa::ISOAbstractObject$getClass()
geometa::ISOAbstractObject$getClassName()
geometa::ISOAbstractObject$getNamespaceDefinition()
geometa::ISOAbstractObject$isDocument()
geometa::ISOAbstractObject$isFieldInheritedFrom()
geometa::ISOAbstractObject$print()
geometa::ISOAbstractObject$save()
geometa::ISOAbstractObject$setAttr()
geometa::ISOAbstractObject$setCodeList()
geometa::ISOAbstractObject$setCodeListValue()
geometa::ISOAbstractObject$setCodeSpace()
geometa::ISOAbstractObject$setHref()
geometa::ISOAbstractObject$setId()
geometa::ISOAbstractObject$setIsNull()
geometa::ISOAbstractObject$setValue()
geometa::ISOAbstractObject$validate()
geometa::ISOAbstractObject$wrapBaseElement()
new()
Initializes object
ISOImageryPlatform$new(xml = NULL)
xml
object of class XMLInternalNode-class
addCitation()
Adds citation
ISOImageryPlatform$addCitation(citation)
citation
object of class ISOCitation
TRUE
if added, FALSE
otherwise
delCitation()
Deletes citation
ISOImageryPlatform$delCitation(citation)
citation
object of class ISOCitation
TRUE
if deleted, FALSE
otherwise
setIdentifier()
Set identifier
ISOImageryPlatform$setIdentifier(identifier)
identifier
object of class ISOMetaIdentifier or character
setDescription()
Set description
ISOImageryPlatform$setDescription(description, locales = NULL)
description
description
locales
list of localized texts. Default is NULL
addSponsor()
Adds sponsor
ISOImageryPlatform$addSponsor(sponsor)
sponsor
object of class ISOResponsibleParty
TRUE
if added, FALSE
otherwise
delSponsor()
Deletes sponsor
ISOImageryPlatform$delSponsor(sponsor)
sponsor
object of class ISOResponsibleParty
TRUE
if deleted, FALSE
otherwise
addInstrument()
Adds instrument
ISOImageryPlatform$addInstrument(instrument)
instrument
object of class ISOImageryInstrument
TRUE
if added, FALSE
otherwise
delInstrument()
Deletes instrument
ISOImageryPlatform$delInstrument(instrument)
instrument
object of class ISOImageryInstrument
TRUE
if deleted, FALSE
otherwise
clone()
The objects of this class are cloneable with this method.
ISOImageryPlatform$clone(deep = FALSE)
deep
Whether to make a deep clone.
Emmanuel Blondel <emmanuel.blondel1@gmail.com>
ISO 19115-2:2009 - Geographic information – Metadata Part 2: Extensions for imagery and gridded data
md <- ISOImageryPlatform$new() #add citation rp1 <- ISOResponsibleParty$new() rp1$setIndividualName("someone1") rp1$setOrganisationName("somewhere1") rp1$setPositionName("someposition1") rp1$setRole("pointOfContact") contact1 <- ISOContact$new() phone1 <- ISOTelephone$new() phone1$setVoice("myphonenumber1") phone1$setFacsimile("myfacsimile1") contact1$setPhone(phone1) address1 <- ISOAddress$new() address1$setDeliveryPoint("theaddress1") address1$setCity("thecity1") address1$setPostalCode("111") address1$setCountry("France") address1$setEmail("someone1@theorg.org") contact1$setAddress(address1) res <- ISOOnlineResource$new() res$setLinkage("http://www.somewhereovertheweb.org") res$setName("somename") contact1$setOnlineResource(res) rp1$setContactInfo(contact1) #citation ct <- ISOCitation$new() ct$setTitle("sometitle") d <- ISODate$new() d$setDate(ISOdate(2015, 1, 1, 1)) d$setDateType("publication") ct$addDate(d) ct$setEdition("1.0") ct$setEditionDate(ISOdate(2015,1,1)) ct$addIdentifier(ISOMetaIdentifier$new(code = "identifier")) ct$addPresentationForm("mapDigital") ct$addCitedResponsibleParty(rp1) md$addCitation(ct) md$setIdentifier("identifier") md$setDescription("some description") xml <- md$encode()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.