geometa (version 0.6-2)

ISOKeywords: ISOKeywords

Description

ISOKeywords

Usage

ISOKeywords

Value

Object of R6Class for modelling a ISO set of keywords

Format

R6Class object.

Fields

keyword

[character] keyword(s)

type

[ISOKeywordType] keyword type

thesaurusName

[ISOCitation] thesaurus citation

Methods

new(xml)

This method is used to instantiate an ISOKeywords

addKeyword(keyword, locales)

Adds a keyword. Locale names can be specified as list with the locales argument.

delKeyword(keyword, locales)

Deletes a keyword. Locale names can be specified as list with the locales argument. Local names should match those of the keyword to be deleted, otherwise nothing will be deleted.

setKeywordType(keywordType)

Sets the keyword type

setThesaurusName(thesaurusName)

Sets the thesaurus name

References

ISO 19115:2003 - Geographic information -- Metadata

Examples

# NOT RUN {
  #a basic keyword set
  md <- ISOKeywords$new()
  md$addKeyword("keyword1")
  md$addKeyword("keyword2")
  md$setKeywordType("theme")
  th <- ISOCitation$new()
  th$setTitle("General")
  md$setThesaurusName(th)
  xml <- md$encode()
  
  #a keyword set with anchors
  md <- ISOKeywords$new()
  kwd1 <- ISOAnchor$new(
    name = "keyword1",
    href = "http://myvocabulary.geometa/keyword1"
  )
  md$addKeyword(kwd1)
  kwd2 <- ISOAnchor$new(
    name = "keyword2",
    href = "http://myvocabulary.geometa/keyword2"
  )
  md$addKeyword(kwd2)
  md$setKeywordType("theme")
  xml <- md$encode()
  
  #Example for INSPIRE (GEMET Spatial Data Theme)
  inspire_kwd <- ISOKeywords$new()
  anc1 <- ISOAnchor$new(
    name = "Environmental monitoring facilities",
    href = "http://inspire.ec.europa.eu/theme/ef"
  )
  inspire_kwd$addKeyword(anc1)
  inspire_kwd$setKeywordType("theme")
  th <- ISOCitation$new()
  th$setTitle(
    ISOAnchor$new(
     name = "GEMET - INSPIRE themes, version 1.0",
     href="http://www.eionet.europa.eu/gemet/inspire_themes"
    )
  )
  inspire_date <- ISODate$new()
  inspire_date$setDate(as.Date("2008-06-01"))
  inspire_date$setDateType("publication")
  th$addDate(inspire_date)
  inspire_kwd$setThesaurusName(th)
  
# }