Add georeferenceSources

Author: sannegovaert

R/create_gps_occurrence.R

@@ -104,6 +104,8 @@ create_gps_occurrence <- function(gps, ref, taxa) {
       geodeticDatum = "EPSG:4326",
       coordinateUncertaintyInMeters =
         as.numeric(.data$`location-error-numerical`),
+      georeferenceSources =
+        dplyr::if_else(.data$`sensor-type` == "gps", "GPS", NA_character_),
       # IDENTIFICATION
       identificationVerificationStatus = "verified by expert",
       # TAXON

R/create_ref_occurrence.R

@@ -96,6 +96,7 @@ create_ref_occurrence <- function(ref, taxa) {
         187,
         NA_real_
       ),
+      georeferenceSources = NA_character_,
       # IDENTIFICATION
       identificationVerificationStatus = "verified by expert",
       # TAXON

inst/extdata/meta.xml

@@ -33,10 +33,11 @@
     <field index="26" term="http://rs.tdwg.org/dwc/terms/decimalLongitude"/>
     <field index="27" term="http://rs.tdwg.org/dwc/terms/geodeticDatum"/>
     <field index="28" term="http://rs.tdwg.org/dwc/terms/coordinateUncertaintyInMeters"/>
-    <field index="29" term="http://rs.tdwg.org/dwc/terms/identificationVerificationStatus"/>
-    <field index="30" term="http://rs.tdwg.org/dwc/terms/scientificNameID"/>
-    <field index="31" term="http://rs.tdwg.org/dwc/terms/scientificName"/>
-    <field index="32" term="http://rs.tdwg.org/dwc/terms/kingdom"/>
+    <field index="29" term="http://rs.tdwg.org/dwc/terms/georeferenceSources"/>
+    <field index="30" term="http://rs.tdwg.org/dwc/terms/identificationVerificationStatus"/>
+    <field index="31" term="http://rs.tdwg.org/dwc/terms/scientificNameID"/>
+    <field index="32" term="http://rs.tdwg.org/dwc/terms/scientificName"/>
+    <field index="33" term="http://rs.tdwg.org/dwc/terms/kingdom"/>
   </core>
     <extension encoding="UTF-8" fieldsTerminatedBy="," linesTerminatedBy="\n" fieldsEnclosedBy="&quot;" ignoreHeaderLines="1" rowType="http://rs.iobis.org/obis/terms/ExtendedMeasurementOrFact">
     <files>

tests/testthat/_snaps/write_dwc/meta.xml

@@ -33,10 +33,11 @@
     <field index="26" term="http://rs.tdwg.org/dwc/terms/decimalLongitude"/>
     <field index="27" term="http://rs.tdwg.org/dwc/terms/geodeticDatum"/>
     <field index="28" term="http://rs.tdwg.org/dwc/terms/coordinateUncertaintyInMeters"/>
-    <field index="29" term="http://rs.tdwg.org/dwc/terms/identificationVerificationStatus"/>
-    <field index="30" term="http://rs.tdwg.org/dwc/terms/scientificNameID"/>
-    <field index="31" term="http://rs.tdwg.org/dwc/terms/scientificName"/>
-    <field index="32" term="http://rs.tdwg.org/dwc/terms/kingdom"/>
+    <field index="29" term="http://rs.tdwg.org/dwc/terms/georeferenceSources"/>
+    <field index="30" term="http://rs.tdwg.org/dwc/terms/identificationVerificationStatus"/>
+    <field index="31" term="http://rs.tdwg.org/dwc/terms/scientificNameID"/>
+    <field index="32" term="http://rs.tdwg.org/dwc/terms/scientificName"/>
+    <field index="33" term="http://rs.tdwg.org/dwc/terms/kingdom"/>
   </core>
     <extension encoding="UTF-8" fieldsTerminatedBy="," linesTerminatedBy="\n" fieldsEnclosedBy="&quot;" ignoreHeaderLines="1" rowType="http://rs.iobis.org/obis/terms/ExtendedMeasurementOrFact">
     <files>