-
Notifications
You must be signed in to change notification settings - Fork 5
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
#181 support M1, M2, M3 + test ISODate, ISODateType
- Loading branch information
Showing
723 changed files
with
56,780 additions
and
822 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,46 @@ | ||
| #' ISOCodeDefinition | ||
| #' | ||
| #' @docType class | ||
| #' @importFrom R6 R6Class | ||
| #' @export | ||
| #' @keywords ISO code definition | ||
| #' @return Object of \code{\link{R6Class}} for modelling an ISO Metadata code definition | ||
| #' @format \code{\link{R6Class}} object. | ||
| #' | ||
| #' @note Abstract ISO codelist class used internally by geometa | ||
| #' | ||
| #' @references | ||
| #' ISO/TS 19139:2007 Geographic information -- XML | ||
| #' | ||
| #' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com> | ||
| #' | ||
| ISOCodeDefinition <- R6Class("ISOCodeDefinition", | ||
| inherit = ISOAbstractObject, | ||
| private = list( | ||
| xmlElement = "CodeDefinition", | ||
| xmlNamespacePrefix = list( | ||
| "19115-1/2" = "GMX" | ||
| ) | ||
| ), | ||
| public = list( | ||
| #'@field identifier identifier | ||
| identifier = NA, | ||
| #'@field description description | ||
| description = NA, | ||
|
|
||
| #'@description Initializes object | ||
| #'@param xml object of class \link{XMLInternalNode-class} | ||
| initialize = function(xml = NULL){ | ||
| super$initialize(xml = xml) | ||
| }, | ||
|
|
||
| #'@description Converts to \link{ISOCodelistValue} | ||
| #'@return object of class \link{ISOCodelistValue} | ||
| toISOCodelistValue = function(){ | ||
| clv = ISOCodelistValue$new() | ||
| clv$identifier = self$identifier$value | ||
| clv$description = self$description$value | ||
| return(clv) | ||
| } | ||
| ) | ||
| ) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,53 @@ | ||
| #' ISOCodeListDictionary | ||
| #' | ||
| #' @docType class | ||
| #' @importFrom R6 R6Class | ||
| #' @export | ||
| #' @keywords ISO code element | ||
| #' @return Object of \code{\link{R6Class}} for modelling an ISO Metadata codelist dictionary | ||
| #' @format \code{\link{R6Class}} object. | ||
| #' | ||
| #' @note Abstract ISO codelist class used internally by geometa | ||
| #' | ||
| #' @references | ||
| #' ISO/TS 19139:2007 Geographic information -- XML | ||
| #' | ||
| #' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com> | ||
| #' | ||
| ISOCodeListDictionary <- R6Class("ISOCodeListDictionary", | ||
| inherit = ISOAbstractObject, | ||
| private = list( | ||
| xmlElement = "CodeListDictionary", | ||
| xmlNamespacePrefix = list( | ||
| "19115-1/2" = "GMX" | ||
| ) | ||
| ), | ||
| public = list( | ||
| #'@field identifier identifier | ||
| identifier = NA, | ||
| #'@field description description | ||
| description = NA, | ||
| #'@field codeEntry code entries | ||
| codeEntry = list(), | ||
|
|
||
| #'@description Initializes object | ||
| #'@param xml object of class \link{XMLInternalNode-class} | ||
| initialize = function(xml = NULL){ | ||
| super$initialize(xml = xml) | ||
| }, | ||
|
|
||
| #'@description Converts to \link{ISOCodelist} | ||
| #'@return an object of class \link{ISOCodelist} | ||
| toISOCodelist = function(){ | ||
| cl = ISOCodelist$new() | ||
| identifier = ISOScopedName$new(value = self$identifier$value) | ||
| identifier$setCodeSpace(self$identifier$attrs$codeSpace) | ||
| cl$identifier = identifier | ||
| cl$description = self$description$value | ||
| cl$codeEntry = lapply(self$codeEntry, function(codeEntry){ | ||
| codeEntry$toISOCodelistValue() | ||
| }) | ||
| return(cl) | ||
| } | ||
| ) | ||
| ) |
Oops, something went wrong.