fix wrapBaseElement

eblondel · Nov 3, 2022 · 4820e8f · 4820e8f
1 parent b1f4c2d
commit 4820e8f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ISOAbstractObject.R b/R/ISOAbstractObject.R
@@ -1227,10 +1227,10 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
     #'@param fieldObj field object
     #'@param an object of class \link{R6Class}
     wrapBaseElement = function(field, fieldObj){
-      dataType <- class(fieldObj)
+      dataType <- class(fieldObj)[1]
 
       #specific coercing
-      if(all(dataType == c("POSIXct","POSIXt"))) dataType <- "datetime"
+      if(is(fieldObj, "POSIXt")) dataType <- "datetime"
 
       #re-encoding (if needed)
       if(tolower(dataType)=="character"){