Last chance! 50% off unlimited learning
Sale ends in
ISOSRVServiceIdentification
Object of R6Class for modelling an ISO ServiceIdentification
R6Class object.
serviceType[character] the service type
serviceTypeVersion[character] the service type version(s)
accessProperties[ISOStandardOrderProcess] the access properties
restrictions[ISOConstraints] restrictions applied to service
keywords[ISOKeywords] service keywords
extent[ISOExtent] service extent(s)
coupledResource[ISOCoupledResource] the coupled resource
couplingType[ISOCouplingType] the coupling type
containsOperations[ISOOperationMetadata] the operation metadata
operatesOn[ISODataIdentification] data identification on which service operates
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
new(xml,value)This method is used to instantiate an ISOSRVServiceIdentification
setServiceType(serviceType)Set the type of service
addServiceTypeVersion(version)Adds a service type version
delServiceTypeVersion(version)Deletes a service type version
setAccessProperties(accesProperties)Sets the access properties, as object of class ISOStandardOrderProcess
setRestrictions(restrictions)Sets the restrictions associated to the service, as object of class ISOConstraints
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
addExtent(extent)Adds an object of class ISOExtent.
setExtent(extent)Sets an object of class ISOExtent.
delExtent(extent)Deletes an object of class ISOExtent.
addCoupledResource(resource)Adds a coupled resource, object of class ISOCoupledResource
delCoupledResource(resource)Deletes a coupled resource, object of class ISOCoupledResource
setCouplingType(couplingType)Set the coupling type, object of class character values among following: "loose" "mixed" "tight"
addOperationMetadata(operationMetadata)Adds operation metadata, object of class ISOOperationMetadata
delOperationMetadata(operationMetadata)Deletes operation metadata, object of class ISOOperationMetadata
addOperatesOn(dataIdentification)Adds an operates on relationship, object of class ISODataIdentification
delOperatesOn(dataIdentification)Deletes an operates on relationship, object of class ISODataIdentification
ISO 19119:2005 - Geographic information -- Services
# NOT RUN {
#encoding
md <- ISOSRVServiceIdentification$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)
#specific elements to service identification
md$setServiceType("Fishery data harmonization process")
md$addServiceTypeVersion("1.0")
orderProcess <- ISOStandardOrderProcess$new()
orderProcess$setFees("fees")
orderProcess$setPlannedAvailableDateTime(ISOdate(2017,7,5,12,0,0))
orderProcess$setOrderingInstructions("instructions")
orderProcess$setTurnaround("turnaround")
md$setAccessProperties(orderProcess)
md$setRestrictions(lc)
kwds <- ISOKeywords$new()
kwds$addKeyword("keyword1")
kwds$addKeyword("keyword2")
kwds$setKeywordType("theme")
th <- ISOCitation$new()
th$setTitle("General")
th$addDate(d)
kwds$setThesaurusName(th)
md$addKeywords(kwds)
#adding extent
extent <- ISOExtent$new()
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
extent$setGeographicElement(bbox)
md$addExtent(extent)
#coupling type
#(here "tight" associated with a particular dataset "my-dataset-identifier")
#see ISOCouplingType$values(labels = T) for other values
md$setCouplingType("tight")
coupledDataset1 <- ISOCoupledResource$new()
coupledDataset1$setOperationName("Rscript")
coupledDataset1$setIdentifier("my-dataset-identifier")
coupledDataset2 <- ISOCoupledResource$new()
coupledDataset2$setOperationName("WPS:Execute")
coupledDataset2$setIdentifier("my-dataset-identifier")
md$addCoupledResource(coupledDataset1)
md$addCoupledResource(coupledDataset2)
#add operation metadata 1 (Rscript)
scriptOp <- ISOOperationMetadata$new()
scriptOp$setOperationName("Rscript")
scriptOp$addDCP("WebServices")
scriptOp$setOperationDescription("WPS Execute")
scriptOp$setInvocationName("identifier")
for(i in 1:3){
param <- ISOParameter$new()
param$setName(sprintf("name%s",i), "xs:string")
param$setDirection("in")
param$setDescription(sprintf("description%s",i))
param$setOptionality(FALSE)
param$setRepeatability(FALSE)
param$setValueType("xs:string")
scriptOp$addParameter(param)
}
outParam <-ISOParameter$new()
outParam$setName("outputname", "xs:string")
outParam$setDirection("out")
outParam$setDescription("outputdescription")
outParam$setOptionality(FALSE)
outParam$setRepeatability(FALSE)
outParam$setValueType("xs:string")
scriptOp$addParameter(outParam)
or <- ISOOnlineResource$new()
or$setLinkage("http://somelink/myrscript.R")
or$setName("R script name")
or$setDescription("R script description")
or$setProtocol("protocol")
scriptOp$addConnectPoint(or)
md$addOperationMetadata(scriptOp)
#add operation metadata 1 (WPS)
wpsOp <- ISOOperationMetadata$new()
wpsOp$setOperationName("WPS:Execute")
wpsOp$addDCP("WebServices")
wpsOp$setOperationDescription("WPS Execute")
invocationName <- "mywpsidentifier"
wpsOp$setInvocationName(invocationName)
for(i in 1:3){
param <- ISOParameter$new()
param$setName(sprintf("name%s",i), "xs:string")
param$setDirection("in")
param$setDescription(sprintf("description%s",i))
param$setOptionality(FALSE)
param$setRepeatability(FALSE)
param$setValueType("xs:string")
wpsOp$addParameter(param)
}
outParam <-ISOParameter$new()
outParam$setName("outputname", "xs:string")
outParam$setDirection("out")
outParam$setDescription("outputdescription")
outParam$setOptionality(FALSE)
outParam$setRepeatability(FALSE)
outParam$setValueType("xs:string")
wpsOp$addParameter(outParam)
or1 <- ISOOnlineResource$new()
or1$setLinkage(
sprintf("http://somelink/wps?request=Execute&version=1.0.0&Identifier=%s",
invocationName)
)
or1$setName("WPS process name")
or1$setDescription("WPS process description")
or1$setProtocol("protocol")
wpsOp$addConnectPoint(or1)
or2 <- ISOOnlineResource$new()
or2$setLinkage("http://somelink/myrscript.R")
or2$setName("Source R script name")
or2$setDescription("Source R script description")
or2$setProtocol("protocol")
wpsOp$addConnectPoint(or2)
md$addOperationMetadata(wpsOp)
xml <- md$encode()
# }
Run the code above in your browser using DataLab