#181 - support M4 - CIT existing classes refacotring

eblondel · Sep 10, 2024 · d6e608f · d6e608f
1 parent c41cb57
commit d6e608f
Show file tree

Hide file tree

Showing 8 changed files with 32 additions and 8 deletions.
diff --git a/R/ISOAddress.R b/R/ISOAddress.R
@@ -25,7 +25,10 @@ ISOAddress <- R6Class("ISOAddress",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_Address",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field deliveryPoint delivery point

diff --git a/R/ISOCitation.R b/R/ISOCitation.R
@@ -51,7 +51,10 @@ ISOCitation<- R6Class("ISOCitation",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_Citation",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field title title

diff --git a/R/ISOCitationSeries.R b/R/ISOCitationSeries.R
@@ -16,7 +16,10 @@ ISOCitationSeries <- R6Class("ISOCitationSeries",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Series",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field name name [0..1]

diff --git a/R/ISOContact.R b/R/ISOContact.R
@@ -35,7 +35,10 @@ ISOContact <- R6Class("ISOContact",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Contact",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field phone phone

diff --git a/R/ISOOnLineFunction.R b/R/ISOOnLineFunction.R
@@ -23,7 +23,10 @@ ISOOnLineFunction <- R6Class("ISOOnLineFunction",
   inherit = ISOCodeListValue,
   private = list(
     xmlElement = "CI_OnLineFunctionCode",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
 

diff --git a/R/ISOOnlineResource.R b/R/ISOOnlineResource.R
@@ -25,7 +25,10 @@ ISOOnlineResource <- R6Class("ISOOnlineResource",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_OnlineResource",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field linkage linkage

diff --git a/R/ISORole.R b/R/ISORole.R
@@ -23,7 +23,10 @@ ISORole <- R6Class("ISORole",
   inherit = ISOCodeListValue,
   private = list(
     xmlElement = "CI_RoleCode",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
 

diff --git a/R/ISOTelephone.R b/R/ISOTelephone.R
@@ -22,7 +22,10 @@ ISOTelephone <- R6Class("ISOTelephone",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Telephone",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field voice voice