ISOFeatureCatalogue | R Documentation |
ISOFeatureCatalogue
ISOFeatureCatalogue
R6Class
object.
Object of R6Class
for modelling an ISO FeatureCatalogue
geometa::geometaLogger
-> geometa::ISOAbstractObject
-> geometa::ISOAbstractCatalogue
-> ISOFeatureCatalogue
attrs
attrs
producer
producer [1..1]: ISOResponsibleParty
functionalLanguage
functionalLanguage [0..1]: character
featureType
featureType [1..*]: ISOFeatureType
definitionSource
definitionSource [0..*]: ISODefinitionSource
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()
geometa::ISOAbstractCatalogue$addFieldOfApplication()
geometa::ISOAbstractCatalogue$addScope()
geometa::ISOAbstractCatalogue$delFieldOfApplication()
geometa::ISOAbstractCatalogue$delScope()
geometa::ISOAbstractCatalogue$setName()
geometa::ISOAbstractCatalogue$setVersionDate()
geometa::ISOAbstractCatalogue$setVersionNumber()
new()
Initializes object
ISOFeatureCatalogue$new(xml = NULL, uuid = NULL)
xml
object of class XMLInternalNode-class
uuid
uuid
setProducer()
Set producer
ISOFeatureCatalogue$setProducer(producer)
producer
object of class ISOResponsibleParty
setFunctionalLanguage()
Set functional language
ISOFeatureCatalogue$setFunctionalLanguage(functionalLanguage)
functionalLanguage
functional language
addFeatureType()
Adds feature type
ISOFeatureCatalogue$addFeatureType(featureType)
featureType
object of class ISOFeatureType
TRUE
if added, FALSE
otherwise
delFeatureType()
Deletes feature type
ISOFeatureCatalogue$delFeatureType(featureType)
featureType
object of class ISOFeatureType
TRUE
if deleted, FALSE
otherwise
addDefinitionSource()
Adds definition source
ISOFeatureCatalogue$addDefinitionSource(source)
source
object of class ISODefinitionSource or ISOCitation
TRUE
if added, FALSE
otherwise
delDefinitionSource()
Deletes definition source
ISOFeatureCatalogue$delDefinitionSource(source)
source
object of class ISODefinitionSource or ISOCitation
TRUE
if deleted, FALSE
otherwise
clone()
The objects of this class are cloneable with this method.
ISOFeatureCatalogue$clone(deep = FALSE)
deep
Whether to make a deep clone.
Emmanuel Blondel <emmanuel.blondel1@gmail.com>
ISO 19110:2005 Methodology for Feature cataloguing
fc <- ISOFeatureCatalogue$new(uuid = "my-fc-identifier") fc$setName("name") fc$addScope("scope1") fc$addScope("scope2") fc$addFieldOfApplication("field1") fc$addFieldOfApplication("field2") fc$setVersionNumber("1.0") fc$setVersionDate(ISOdate(2015, 1, 1, 1)) producer <- ISOResponsibleParty$new() producer$setIndividualName("someone") fc$setProducer(producer) fc$setFunctionalLanguage("eng") cit <- ISOCitation$new() cit$setTitle("some citation title") fc$addDefinitionSource(cit) #' #add featureType ft <- ISOFeatureType$new() ft$setTypeName("typeName") ft$setDefinition("definition") ft$setCode("code") ft$setIsAbstract(FALSE) ft$addAlias("alias1") ft$addAlias("alias2") #add feature attributes for(i in 1:3){ #create attribute fat <- ISOFeatureAttribute$new() fat$setMemberName(sprintf("name %s",i)) fat$setDefinition(sprintf("definition %s",i)) fat$setCardinality(lower=1,upper=1) fat$setCode(sprintf("code %s",i)) gml <- GMLBaseUnit$new(id = sprintf("ID%s",i)) gml$setDescriptionReference("someref") gml$setIdentifier("identifier", "codespace") gml$addName("name1", "codespace") gml$addName("name2", "codespace") gml$setQuantityTypeReference("someref") gml$setCatalogSymbol("symbol") gml$setUnitsSystem("somelink") fat$setValueMeasurementUnit(gml) #add listed values val1 <- ISOListedValue$new() val1$setCode("code1") val1$setLabel("label1") val1$setDefinition("definition1") fat$addListedValue(val1) val2 <- ISOListedValue$new() val2$setCode("code2") val2$setLabel("label2") val2$setDefinition("definition2") fat$addListedValue(val2) fat$setValueType("typeName") #add feature attribute as carrierOfCharacteristic ft$addCharacteristic(fat) } #add featureType to catalogue fc$addFeatureType(ft) xml <- fc$encode()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.