ISODataQuality | R Documentation |
ISODataQuality
ISODataQuality
R6Class
object.
Object of R6Class
for modelling an ISO DataQuality
geometa::geometaLogger
-> geometa::ISOAbstractObject
-> ISODataQuality
scope
scope
report
list of reports
lineage
lineage
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
ISODataQuality$new(xml = NULL)
xml
object of class XMLInternalNode-class
setScope()
Set scope
ISODataQuality$setScope(scope)
scope
scope
addReport()
Adds report
ISODataQuality$addReport(report)
report
report, object of class ISODomainConsistency
TRUE
if added, FALSE
otherwise
setLineage()
Set lineage
ISODataQuality$setLineage(lineage)
lineage
lineage, object of class ISOLineage
clone()
The objects of this class are cloneable with this method.
ISODataQuality$clone(deep = FALSE)
deep
Whether to make a deep clone.
Emmanuel Blondel <emmanuel.blondel1@gmail.com>
ISO 19115:2003 - Geographic information – Metadata
#create dataQuality object with a 'dataset' scope dq <- ISODataQuality$new() scope <- ISOScope$new() scope$setLevel("dataset") dq$setScope(scope) #add data quality reports... #add a report the data quality dc <- ISODomainConsistency$new() result <- ISOConformanceResult$new() spec <- ISOCitation$new() spec$setTitle("Data Quality check") spec$addAlternateTitle("This is is some data quality check report") d <- ISODate$new() d$setDate(ISOdate(2015, 1, 1, 1)) d$setDateType("publication") spec$addDate(d) result$setSpecification(spec) result$setExplanation("some explanation about the conformance") result$setPass(TRUE) dc$addResult(result) dq$addReport(dc) #add INSPIRE reports? #INSPIRE - interoperability of spatial data sets and services dc_inspire1 <- ISODomainConsistency$new() cr_inspire1 <- ISOConformanceResult$new() cr_inspire_spec1 <- ISOCitation$new() cr_title <- paste( "Commission Regulation (EU) No 1089/2010 of 23 November 2010 implementing Directive 2007/2/EC", "of the European Parliament and of the Council as regards interoperability of spatial data", "sets and services" ) cr_inspire_spec1$setTitle(cr_title) cr_inspire1$setExplanation("See the referenced specification") cr_inspire_date1 <- ISODate$new() cr_inspire_date1$setDate(ISOdate(2010,12,8)) cr_inspire_date1$setDateType("publication") cr_inspire_spec1$addDate(cr_inspire_date1) cr_inspire1$setSpecification(cr_inspire_spec1) cr_inspire1$setPass(TRUE) dc_inspire1$addResult(cr_inspire1) dq$addReport(dc_inspire1) #INSPIRE - metadata dc_inspire2 <- ISODomainConsistency$new() cr_inspire2 <- ISOConformanceResult$new() cr_inspire_spec2 <- ISOCitation$new() cr_title2 <- paste( "COMMISSION REGULATION (EC) No 1205/2008 of 3 December 2008 implementing Directive 2007/2/EC", "of the European Parliament and of the Council as regards metadata" ) cr_inspire_spec2$setTitle(cr_title2) cr_inspire2$setExplanation("See the referenced specification") cr_inspire_date2 <- ISODate$new() cr_inspire_date2$setDate(ISOdate(2008,12,4)) cr_inspire_date2$setDateType("publication") cr_inspire_spec2$addDate(cr_inspire_date2) cr_inspire2$setSpecification(cr_inspire_spec2) cr_inspire2$setPass(TRUE) dc_inspire2$addResult(cr_inspire2) dq$addReport(dc_inspire2) #add lineage (more example of lineages in ISOLineage documentation) lineage <- ISOLineage$new() lineage$setStatement("statement") dq$setLineage(lineage) #xml xml <- dq$encode()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.