diff --git a/R/ISOBoundingPolygon.R b/R/ISOBoundingPolygon.R index 2ba049a7..9806604a 100644 --- a/R/ISOBoundingPolygon.R +++ b/R/ISOBoundingPolygon.R @@ -18,7 +18,10 @@ ISOBoundingPolygon <- R6Class("ISOBoundingPolygon", inherit = ISOGeographicExtent, private = list( xmlElement = "EX_BoundingPolygon", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field polygon list of polygons diff --git a/R/ISOExtent.R b/R/ISOExtent.R index ce349160..f21b8214 100644 --- a/R/ISOExtent.R +++ b/R/ISOExtent.R @@ -16,7 +16,10 @@ ISOExtent <- R6Class("ISOExtent", inherit = ISOAbstractObject, private = list( xmlElement = "EX_Extent", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field geographicElement geographicElement [0..*]: ISOGeographicExtent diff --git a/R/ISOGeographicBoundingBox.R b/R/ISOGeographicBoundingBox.R index 80791df1..b7541b17 100644 --- a/R/ISOGeographicBoundingBox.R +++ b/R/ISOGeographicBoundingBox.R @@ -20,7 +20,10 @@ ISOGeographicBoundingBox <- R6Class("ISOGeographicBoundingBox", inherit = ISOGeographicExtent, private = list( xmlElement = "EX_GeographicBoundingBox", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field westBoundLongitude westBoundLongitude diff --git a/R/ISOGeographicDescription.R b/R/ISOGeographicDescription.R index 28b86f2a..ab2c0c2e 100644 --- a/R/ISOGeographicDescription.R +++ b/R/ISOGeographicDescription.R @@ -21,7 +21,10 @@ ISOGeographicDescription <- R6Class("ISOGeographicDescription", inherit = ISOGeographicExtent, private = list( xmlElement = "EX_GeographicDescription", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field geographicIdentifier geographicIdentifier [1..1]: character diff --git a/R/ISOGeographicExtent.R b/R/ISOGeographicExtent.R index 7758be6f..78fd2342 100644 --- a/R/ISOGeographicExtent.R +++ b/R/ISOGeographicExtent.R @@ -18,7 +18,10 @@ ISOGeographicExtent <- R6Class("ISOGeographicExtent", inherit = ISOAbstractObject, private = list( xmlElement = "AbstractEX_GeographicExtent", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field extentTypeCode extentTypeCode [0..1]: ISOBaseBoolean default "true" diff --git a/R/ISOSpatialTemporalExtent.R b/R/ISOSpatialTemporalExtent.R index b0bc3286..14fc5015 100644 --- a/R/ISOSpatialTemporalExtent.R +++ b/R/ISOSpatialTemporalExtent.R @@ -28,7 +28,10 @@ ISOSpatialTemporalExtent <- R6Class("ISOSpatialTemporalExtent", inherit = ISOTemporalExtent, private = list( xmlElement = "EX_SpatialTemporalExtent", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field spatialExtent spatialExtent [1..*]: ISOGeographicExtent diff --git a/R/ISOTemporalExtent.R b/R/ISOTemporalExtent.R index 9030581f..283e781f 100644 --- a/R/ISOTemporalExtent.R +++ b/R/ISOTemporalExtent.R @@ -23,7 +23,10 @@ ISOTemporalExtent <- R6Class("ISOTemporalExtent", inherit = ISOAbstractObject, private = list( xmlElement = "EX_TemporalExtent", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field extent extent diff --git a/R/ISOVerticalExtent.R b/R/ISOVerticalExtent.R index 306ed3da..3df101d6 100644 --- a/R/ISOVerticalExtent.R +++ b/R/ISOVerticalExtent.R @@ -22,7 +22,10 @@ ISOVerticalExtent <- R6Class("ISOVerticalExtent", inherit = ISOAbstractObject, private = list( xmlElement = "EX_VerticalExtent", - xmlNamespacePrefix = "GMD" + xmlNamespacePrefix = list( + "19115-1/2" = "GMD", + "19115-3" = "GEX" + ) ), public = list( #'@field minimumValue minimumValue [1..1]: numeric diff --git a/inst/extdata/coverage/geometa_coverage_inventory.csv b/inst/extdata/coverage/geometa_coverage_inventory.csv index 196a3c83..518e2062 100644 --- a/inst/extdata/coverage/geometa_coverage_inventory.csv +++ b/inst/extdata/coverage/geometa_coverage_inventory.csv @@ -24,7 +24,7 @@ "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractDQ_TemporalAccuracy","ISOAbstractTemporalAccuracy",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractDQ_ThematicAccuracy","ISOAbstractThematicAccuracy",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractDS_Aggregate","ISOAbstractAggregate",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractEX_GeographicExtent","ISOGeographicExtent",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractEX_GeographicExtent","ISOGeographicExtent",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractMD_ContentInformation","ISOContentInformation",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractMD_Identification","ISOIdentification",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","AbstractMD_SpatialRepresentation","ISOSpatialRepresentation",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" @@ -73,13 +73,13 @@ "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","DS_Sensor","ISOSensor",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","DS_Series","ISOSeries",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","DS_StereoMate","ISOStereoMate",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_BoundingPolygon","ISOBoundingPolygon",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_Extent","ISOExtent",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_GeographicBoundingBox","ISOGeographicBoundingBox",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_GeographicDescription","ISOGeographicDescription",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_SpatialTemporalExtent","ISOSpatialTemporalExtent",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_TemporalExtent","ISOTemporalExtent",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_VerticalExtent","ISOVerticalExtent",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_BoundingPolygon","ISOBoundingPolygon",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_Extent","ISOExtent",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_GeographicBoundingBox","ISOGeographicBoundingBox",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_GeographicDescription","ISOGeographicDescription",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_SpatialTemporalExtent","ISOSpatialTemporalExtent",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_TemporalExtent","ISOTemporalExtent",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","EX_VerticalExtent","ISOVerticalExtent",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","LanguageCode","ISOLanguage",TRUE,TRUE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","LI_Lineage","ISOLineage",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" "ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD","LI_ProcessStep","ISOProcessStep",TRUE,FALSE,"ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD" @@ -545,14 +545,14 @@ "ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial COmmon Objects (GCO) Version: 1.0","GCO","TypeName","ISOTypeName",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GCO" "ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial COmmon Objects (GCO) Version: 1.0","GCO","UnlimitedInteger","ISOUnlimitedInteger",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GCO" "ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial COmmon Objects (GCO) Version: 1.0","GCO","UomIdentifier","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GCO" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","AbstractEX_GeographicExtent","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_BoundingPolygon","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_Extent","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_GeographicBoundingBox","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_GeographicDescription","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_SpatialTemporalExtent","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_TemporalExtent","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_VerticalExtent","",FALSE,FALSE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","AbstractEX_GeographicExtent","ISOGeographicExtent",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_BoundingPolygon","ISOBoundingPolygon",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_Extent","ISOExtent",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_GeographicBoundingBox","ISOGeographicBoundingBox",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_GeographicDescription","ISOGeographicDescription",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_SpatialTemporalExtent","ISOSpatialTemporalExtent",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_TemporalExtent","ISOTemporalExtent",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX","EX_VerticalExtent","ISOVerticalExtent",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX" "ISO/TS 19115-3:2016","ISO 19115-1:2014","metadata for LANguage and localization (LAN) Version: 1.0","LAN","CountryCode","ISOCountry",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - LAN" "ISO/TS 19115-3:2016","ISO 19115-1:2014","metadata for LANguage and localization (LAN) Version: 1.0","LAN","LanguageCode","ISOLanguage",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - LAN" "ISO/TS 19115-3:2016","ISO 19115-1:2014","metadata for LANguage and localization (LAN) Version: 1.0","LAN","LocalisedCharacterString","ISOLocalisedCharacterString",TRUE,TRUE,"ISO/TS 19115-3:2016 - ISO 19115-1:2014 - LAN" diff --git a/inst/extdata/coverage/geometa_coverage_summary.csv b/inst/extdata/coverage/geometa_coverage_summary.csv index 5baeafed..f5c0bbdf 100644 --- a/inst/extdata/coverage/geometa_coverage_summary.csv +++ b/inst/extdata/coverage/geometa_coverage_summary.csv @@ -1,14 +1,14 @@ "Specification","Schema","Title","Namespace","Supported","Missing","Refactored","Torefactor","Coverage" "ISO/TS 19115-3:2016","ISO 19115-1:2014","Citation and responsible party information (CIT) Version: 2.0","CIT",11,5,11,5,68.75 "ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial COmmon Objects (GCO) Version: 1.0","GCO",22,2,22,2,91.67 -"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX",0,8,0,8,0 +"ISO/TS 19115-3:2016","ISO 19115-1:2014","Geospatial EXtent (GEX) Version: 1.0","GEX",8,0,8,0,100 "ISO/TS 19115-3:2016","ISO 19115-1:2014","metadata for LANguage and localization (LAN) Version: 1.0","LAN",7,0,7,0,100 "ISO/TS 19115-3:2016","ISO 19115-1:2014","Metadata Common Classes (MCC) Version: 1.0","MCC",0,31,0,31,0 "ISO/TS 19115-3:2016","ISO 19115-1:2014","MetaData Base (MDB) Version: 2.0","MDB",0,2,0,2,0 "ISO/TS 19115-3:2016","ISO 19115-1:2014","Metadata for Resource Identification (MRI) Version: 1.0","MRI",0,12,0,12,0 "ISO/TS 19115-3:2016","ISO 19157","Data Quality abstract Classes (DQC) Version 1.0","DQC",0,2,0,2,0 "ISO/TS 19139:2007","ISO 19110:2005","Geographic Information - Methodology for feature cataloguing","GFC",17,0,0,17,100 -"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD",132,0,18,114,100 +"ISO/TS 19139:2007","ISO 19115-1:2003","Geographic Information - Metadata","GMD",132,0,26,106,100 "ISO/TS 19139:2007","ISO 19115-2:2009","Geographic Information - Metadata - Part 2: Extensions for imagery and gridded data","GMI",40,0,0,40,100 "ISO/TS 19139:2007","ISO 19119:2005","Geographic Information - Service Metadata","SRV",7,12,0,19,36.84 "ISO/TS 19139:2007","ISO/TS 19103:2005","Geographic Common extensible markup language","GCO",22,0,22,0,100 diff --git a/inst/extdata/coverage/geometa_coverage_summary.html b/inst/extdata/coverage/geometa_coverage_summary.html index c3944c97..cc97c19b 100644 --- a/inst/extdata/coverage/geometa_coverage_summary.html +++ b/inst/extdata/coverage/geometa_coverage_summary.html @@ -406,11 +406,11 @@ ISO 19115-1:2014 Geospatial EXtent (GEX) Version: 1.0 GEX -ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX -0 +ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX 8 0 8 +0 ISO/TS 19115-3:2016 @@ -489,8 +489,8 @@ ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD 132 0 -18 -114 +26 +106 ISO/TS 19139:2007 diff --git a/inst/extdata/coverage/geometa_coverage_summary.md b/inst/extdata/coverage/geometa_coverage_summary.md index 6c941dd2..b74bc8a4 100644 --- a/inst/extdata/coverage/geometa_coverage_summary.md +++ b/inst/extdata/coverage/geometa_coverage_summary.md @@ -2,14 +2,14 @@ |:------------------------------------|:------------------------------------|:-----------------------------------------------------------------------------------|:---------|:----------------------------------------------------------------------------------------------------------------------------------|---------:|-------:|----------:|----------:| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Citation and responsible party information (CIT) Version: 2.0 |CIT |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - CIT](https://img.shields.io/badge/-69%25-f2eb24.svg)](https://github.com/eblondel/geometa)| 11| 5| 11| 5| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Geospatial COmmon Objects (GCO) Version: 1.0 |GCO |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GCO](https://img.shields.io/badge/-92%25-33cc7a.svg)](https://github.com/eblondel/geometa)| 22| 2| 22| 2| -|ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Geospatial EXtent (GEX) Version: 1.0 |GEX |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX](https://img.shields.io/badge/-0%25-ad0f0f.svg)](https://github.com/eblondel/geometa)| 0| 8| 0| 8| +|ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Geospatial EXtent (GEX) Version: 1.0 |GEX |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - GEX](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 8| 0| 8| 0| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |metadata for LANguage and localization (LAN) Version: 1.0 |LAN |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - LAN](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 7| 0| 7| 0| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Metadata Common Classes (MCC) Version: 1.0 |MCC |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - MCC](https://img.shields.io/badge/-0%25-ad0f0f.svg)](https://github.com/eblondel/geometa)| 0| 31| 0| 31| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |MetaData Base (MDB) Version: 2.0 |MDB |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - MDB](https://img.shields.io/badge/-0%25-ad0f0f.svg)](https://github.com/eblondel/geometa)| 0| 2| 0| 2| |ISO/TS 19115-3:2016 |ISO 19115-1:2014 |Metadata for Resource Identification (MRI) Version: 1.0 |MRI |[![ISO/TS 19115-3:2016 - ISO 19115-1:2014 - MRI](https://img.shields.io/badge/-0%25-ad0f0f.svg)](https://github.com/eblondel/geometa)| 0| 12| 0| 12| |ISO/TS 19115-3:2016 |ISO 19157 |Data Quality abstract Classes (DQC) Version 1.0 |DQC |[![ISO/TS 19115-3:2016 - ISO 19157 - DQC](https://img.shields.io/badge/-0%25-ad0f0f.svg)](https://github.com/eblondel/geometa) | 0| 2| 0| 2| |ISO/TS 19139:2007 |ISO 19110:2005 |Geographic Information - Methodology for feature cataloguing |GFC |[![ISO/TS 19139:2007 - ISO 19110:2005 - GFC](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 17| 0| 0| 17| -|ISO/TS 19139:2007 |ISO 19115-1:2003 |Geographic Information - Metadata |GMD |[![ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 132| 0| 18| 114| +|ISO/TS 19139:2007 |ISO 19115-1:2003 |Geographic Information - Metadata |GMD |[![ISO/TS 19139:2007 - ISO 19115-1:2003 - GMD](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 132| 0| 26| 106| |ISO/TS 19139:2007 |ISO 19115-2:2009 |Geographic Information - Metadata - Part 2: Extensions for imagery and gridded data |GMI |[![ISO/TS 19139:2007 - ISO 19115-2:2009 - GMI](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 40| 0| 0| 40| |ISO/TS 19139:2007 |ISO 19119:2005 |Geographic Information - Service Metadata |SRV |[![ISO/TS 19139:2007 - ISO 19119:2005 - SRV](https://img.shields.io/badge/-37%25-ff0c0c.svg)](https://github.com/eblondel/geometa)| 7| 12| 0| 19| |ISO/TS 19139:2007 |ISO/TS 19103:2005 |Geographic Common extensible markup language |GCO |[![ISO/TS 19139:2007 - ISO/TS 19103:2005 - GCO](https://img.shields.io/badge/-100%25-4a4ea8.svg)](https://github.com/eblondel/geometa)| 22| 0| 22| 0| diff --git a/tests/testthat/test_ISOBoundingPolygon.R b/tests/testthat/test_ISOBoundingPolygon.R index b0561942..7db58a68 100644 --- a/tests/testthat/test_ISOBoundingPolygon.R +++ b/tests/testthat/test_ISOBoundingPolygon.R @@ -9,7 +9,7 @@ require(testthat) context("ISOBoundingPolygon") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE) @@ -29,4 +29,27 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(md, md2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE) + hole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE) + hole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE) + pts = list(outer, hole1, hole2) + sfg = st_polygon(pts) + md <- ISOBoundingPolygon$new() + md$addPolygon(sfg) + xml <- md$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + #TODO decoding for matrices of coordinates + md2 <- ISOBoundingPolygon$new(xml = xml) + xml2 <- md2$encode() + + expect_true(ISOAbstractObject$compare(md, md2)) + setMetadataStandard() }) \ No newline at end of file diff --git a/tests/testthat/test_ISOExtent.R b/tests/testthat/test_ISOExtent.R index c52da975..96018e53 100644 --- a/tests/testthat/test_ISOExtent.R +++ b/tests/testthat/test_ISOExtent.R @@ -8,7 +8,7 @@ require(testthat) context("ISOExtent") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding extent <- ISOExtent$new() @@ -40,4 +40,39 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(extent, extent2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + extent <- ISOExtent$new() + + #adding geographicElement + bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90) + extent$addGeographicElement(bbox) + + #adding temporalElement + time <- ISOTemporalExtent$new() + start <- ISOdate(2000, 1, 12, 12, 59, 45) + end <- ISOdate(2010, 8, 22, 13, 12, 43) + tp <- GMLTimePeriod$new(beginPosition = start, endPosition = end) + time$setTimePeriod(tp) + extent$addTemporalElement(time) + + #adding verticalElement + vert <- ISOVerticalExtent$new() + vert$setMinimumValue(0) + vert$setMaximumValue(19) + extent$addVerticalElement(vert) + + xml <- extent$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + extent2 <- ISOExtent$new(xml = xml) + xml2 <- extent2$encode() + + expect_true(ISOAbstractObject$compare(extent, extent2)) + setMetadataStandard() }) \ No newline at end of file diff --git a/tests/testthat/test_ISOGeographicBoundingBox.R b/tests/testthat/test_ISOGeographicBoundingBox.R index 0833f64b..9c48987f 100644 --- a/tests/testthat/test_ISOGeographicBoundingBox.R +++ b/tests/testthat/test_ISOGeographicBoundingBox.R @@ -8,7 +8,7 @@ require(testthat) context("ISOGeographicBoundingBox") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding md <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90) @@ -21,4 +21,20 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(md, md2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + md <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90) + xml <- md$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + md2 <- ISOGeographicBoundingBox$new(xml = xml) + xml2 <- md2$encode() + + expect_true(ISOAbstractObject$compare(md, md2)) + setMetadataStandard() }) \ No newline at end of file diff --git a/tests/testthat/test_ISOGeographicDescription.R b/tests/testthat/test_ISOGeographicDescription.R index 8098f52b..4e3a480c 100644 --- a/tests/testthat/test_ISOGeographicDescription.R +++ b/tests/testthat/test_ISOGeographicDescription.R @@ -8,7 +8,7 @@ require(testthat) context("ISOGeographicDescription") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding md <- ISOGeographicDescription$new() @@ -22,4 +22,22 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(md, md2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + md <- ISOGeographicDescription$new() + md$setGeographicIdentifier(ISOMetaIdentifier$new(code = "identifier")) + xml <- md$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + md2 <- ISOGeographicDescription$new(xml = xml) + xml2 <- md2$encode() + + expect_true(ISOAbstractObject$compare(md, md2)) + setMetadataStandard("19115-1/2") + }) \ No newline at end of file diff --git a/tests/testthat/test_ISOSpatialTemporalExtent.R b/tests/testthat/test_ISOSpatialTemporalExtent.R index a44d3bac..67acb61d 100644 --- a/tests/testthat/test_ISOSpatialTemporalExtent.R +++ b/tests/testthat/test_ISOSpatialTemporalExtent.R @@ -8,7 +8,7 @@ require(testthat) context("ISOSpatialTemporalExtent") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding md <- ISOSpatialTemporalExtent$new() @@ -28,4 +28,28 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(md, md2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + md <- ISOSpatialTemporalExtent$new() + start <- ISOdate(2000, 1, 12, 12, 59, 45) + end <- ISOdate(2010, 8, 22, 13, 12, 43) + tp <- GMLTimePeriod$new(beginPosition = start, endPosition = end) + md$setTimePeriod(tp) + spatialExtent <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90) + md$addSpatialExtent(spatialExtent) + + xml <- md$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + md2 <- ISOSpatialTemporalExtent$new(xml = xml) + xml2 <- md2$encode() + + expect_true(ISOAbstractObject$compare(md, md2)) + setMetadataStandard() + }) \ No newline at end of file diff --git a/tests/testthat/test_ISOTemporalExtent.R b/tests/testthat/test_ISOTemporalExtent.R index b144a958..e694e1d0 100644 --- a/tests/testthat/test_ISOTemporalExtent.R +++ b/tests/testthat/test_ISOTemporalExtent.R @@ -8,7 +8,7 @@ require(testthat) context("ISOTemporalExtent") -test_that("encoding - with GMLTimeInstant",{ +test_that("encoding - with GMLTimeInstant - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding te <- ISOTemporalExtent$new() @@ -27,7 +27,28 @@ test_that("encoding - with GMLTimeInstant",{ }) -test_that("encoding - with GMLTimePeriod",{ +test_that("encoding - with GMLTimeInstant - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + te <- ISOTemporalExtent$new() + time <- ISOdate(2000, 1, 12, 12, 59, 45) + timeInstant <- GMLTimeInstant$new(timePosition = time) + te$setTimeInstant(timeInstant) + + xml <- te$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + te2 <- ISOTemporalExtent$new(xml = xml) + xml2 <- te2$encode() + + expect_true(ISOAbstractObject$compare(te, te2)) + setMetadataStandard() + +}) + +test_that("encoding - with GMLTimePeriod - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding te <- ISOTemporalExtent$new() @@ -45,4 +66,25 @@ test_that("encoding - with GMLTimePeriod",{ expect_true(ISOAbstractObject$compare(te, te2)) +}) + +test_that("encoding - with GMLTimePeriod - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + te <- ISOTemporalExtent$new() + start <- ISOdate(2000, 1, 12, 12, 59, 45) + end <- ISOdate(2010, 8, 22, 13, 12, 43) + tp <- GMLTimePeriod$new(beginPosition = start, endPosition = end) + te$setTimePeriod(tp) + + xml <- te$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + te2 <- ISOTemporalExtent$new(xml = xml) + xml2 <- te2$encode() + + expect_true(ISOAbstractObject$compare(te, te2)) + setMetadataStandard() }) \ No newline at end of file diff --git a/tests/testthat/test_ISOVerticalExtent.R b/tests/testthat/test_ISOVerticalExtent.R index 1a28b8a2..4d14539d 100644 --- a/tests/testthat/test_ISOVerticalExtent.R +++ b/tests/testthat/test_ISOVerticalExtent.R @@ -8,7 +8,7 @@ require(testthat) context("ISOVerticalExtent") -test_that("encoding",{ +test_that("encoding - ISO 19115-1/2",{ testthat::skip_on_cran() #encoding ve <- ISOVerticalExtent$new() @@ -23,4 +23,23 @@ test_that("encoding",{ expect_true(ISOAbstractObject$compare(ve, ve2)) +}) + +test_that("encoding - ISO 19115-3",{ + testthat::skip_on_cran() + setMetadataStandard("19115-3") + #encoding + ve <- ISOVerticalExtent$new() + ve$setMinimumValue(0) + ve$setMaximumValue(19) + + xml <- ve$encode() + expect_is(xml, "XMLInternalNode") + + #decoding + ve2 <- ISOVerticalExtent$new(xml = xml) + + expect_true(ISOAbstractObject$compare(ve, ve2)) + setMetadataStandard() + }) \ No newline at end of file