ISOServiceIdentification
ISOServiceIdentification
Object of R6Class
for modelling an ISO ServiceIdentification
R6Class
object.
setCitation(citation)
Sets an object of class ISOCitation
setAbstract(abstract, locales)
Sets an abstract (object of class "character"). Locale names can be
specified as list
with the locales
argument.
setPurpose(purpose, locales)
Sets a purpose (object of class "character"). Locale names can be
specified as list
with the locales
argument.
addCredit(credit, locales)
Adds a credit (object of class "character"). Locale names can be
specified as list
with the locales
argument.
delCredit(credit, locales)
Deletes a credit (object of class "character"). Locale names can be
specified as list
with the locales
argument.
addStatus(status)
Adds a status, as object of class "character" or class ISOStatus
. If
an object of class "character" is specified, it must match the accepted
progress status values ISOStatus$values()
.
delStatus(status)
Deletes a status, as object of class "character" or class ISOStatus
. If
an object of class "character" is specified, it must match the accepted
progress status values ISOStatus$values()
.
addPointOfContact(pointOfContact)
Adds an object of class ISOResponsibleParty
delPointOfContact(pointOfContact)
Deletes an object of class ISOResponsibleParty
addResourceMaintenance(resourceMaintenance)
Adds a resource maintenance information as object of class
ISOMaintenanceInformation
.
setResourceMaintenance(resourceMaintenance)
Sets a resource maintenance information as object of class
ISOMaintenanceInformation
.
delResourceMaintenance(resourceMaintenance)
Deletes a resource maintenance information as object of class
ISOMaintenanceInformation
.
addGraphicOverview(graphicOverview)
Adds an object of class ISOBrowseGraphic
setGraphicOverview(graphicOverview)
Sets an object of class ISOBrowseGraphic
delGraphicOverview(graphicOverview)
Deletes an object of class ISOBrowseGraphic
addKeywords(keywords)
Adds a set of keywords as object of class ISOKeywords
setKeywords(keywords)
Sets a set of keywords as object of class ISOKeywords
delKeywords(keywords)
Deletes a set of keywords as object of class ISOKeywords
addResourceConstraints(resourceConstraints)
Adds an object of class ISOLegalConstraints
setResourceConstraints(resourceConstraints)
Sets an object of class ISOLegalConstraints
addResourceConstraints(resourceConstraints)
Deletes an object of class ISOLegalConstraints
ISO 19115:2003 - Geographic information -- Metadata
# NOT RUN {
#encoding
md <- ISOServiceIdentification$new()
md$setAbstract("abstract")
md$setPurpose("purpose")
#adding a point of contact
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)
md$addPointOfContact(rp)
#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(rp)
md$setCitation(ct)
#graphic overview
go <- ISOBrowseGraphic$new(
fileName = "http://wwww.somefile.org/png",
fileDescription = "Map Overview",
fileType = "image/png"
)
md$setGraphicOverview(go)
#maintenance information
mi <- ISOMaintenanceInformation$new()
mi$setMaintenanceFrequency("daily")
md$setResourceMaintenance(mi)
#adding legal constraints
lc <- ISOLegalConstraints$new()
lc$addUseLimitation("limitation1")
lc$addUseLimitation("limitation2")
lc$addUseLimitation("limitation3")
lc$addAccessConstraint("copyright")
lc$addAccessConstraint("license")
lc$addUseConstraint("copyright")
lc$addUseConstraint("license")
md$setResourceConstraints(lc)
xml <- md$encode()
# }
Run the code above in your browser using DataLab