#167 support UTC tz in for POSIX values

DESCRIPTION

@@ -2,7 +2,7 @@ Package: geometa
 Type: Package
 Title: Tools for Reading and Writing ISO/OGC Geographic Metadata
 Version: 0.6-2
-Date: 2020-02-17
+Date: 2020-02-20
 Authors@R: c(person("Emmanuel", "Blondel", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0002-5870-5762")))
 Maintainer: Emmanuel Blondel <[email protected]>
 Description: Provides facilities to handle reading and writing of geographic metadata 

R/ISOAbstractObject.R

@@ -200,17 +200,19 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
       newvalue <- value
       #datetime types
       if(regexpr(pattern = "^(\\d{4})-(\\d{2})-(\\d{2})T(\\d{2}):(\\d{2}):(\\d{2})$", value)>0){
-        newvalue <- as.POSIXct(strptime(value, "%Y-%m-%dT%H:%M:%S"), tz = "GMT")
+        newvalue <- as.POSIXct(strptime(value, "%Y-%m-%dT%H:%M:%S"), tz = ifelse(endsWith(value,"Z"),"UTC",""))
       }else if(regexpr(pattern = "^(\\d{4})-(\\d{2})-(\\d{2})$", value)>0){
-        newvalue <- as.Date(as.POSIXct(strptime(value, "%Y-%m-%d"), tz = "GMT"))
+        newvalue <- as.Date(as.POSIXct(strptime(value, "%Y-%m-%d"), tz = "UTC"))
       }
 
       return(newvalue)
     },
     fromComplexTypes = function(value){
       #datetime types
       if(suppressWarnings(all(class(value)==c("POSIXct","POSIXt")))){
+        tz <- attr(value, "tzone")
         value <- format(value,"%Y-%m-%dT%H:%M:%S")
+        if(tz=="UTC") value <- paste0(value,"Z")
       }else if(class(value)[1] == "Date"){
         value <- format(value,"%Y-%m-%d")
       }

R/geometa.R

@@ -12,7 +12,7 @@
 #'    Package: \tab geometa\cr
 #'    Type: \tab Package\cr
 #'    Version: \tab 0.6-2\cr
-#'    Date: \tab 2020-02-20\cr
+#'    Date: \tab 2020-02-21\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }

tests/testthat/test_ISOBaseDateTime.R

@@ -22,4 +22,22 @@ test_that("encoding",{
 
   expect_true(ISOAbstractObject$compare(md, md2))
 
+})
+
+test_that("encoding - datetime in UTC",{
+  #encoding
+  date <- ISOdate(2015, 1, 1, 1)
+  attr(date, "tzone") <- "UTC"
+  md <- ISOBaseDateTime$new(value = date)
+  expect_is(md, "ISOBaseDateTime")
+  expect_equal(md$value, date)
+  xml <- md$encode()
+  expect_is(xml, "XMLInternalNode")
+
+  #decoding
+  md2 <- ISOBaseDateTime$new(xml = xml)
+  xml2 <- md2$encode()
+
+  expect_true(ISOAbstractObject$compare(md, md2))
+
 })