#219 try digest for object comparison

Author: eblondel

DESCRIPTION

@@ -15,7 +15,7 @@ Description: Provides facilities to read, write and validate geographic metadata
  as well, such as the Sensor Web Enablement (SWE) Common Data Model, the OGC GML 
  Coverage Implementation Schema (GMLCOV), or the OGC GML Referenceable Grid (GMLRGRID).
 Depends: R (>= 3.3.0)
-Imports: methods, R6, XML, httr, jsonlite, keyring, readr, crayon
+Imports: methods, R6, XML, httr, jsonlite, keyring, readr, crayon, digest
 Suggests: sf, ncdf4, EML, emld, units, testthat, roxygen2
 License: MIT + file LICENSE
 URL: https://github.com/eblondel/geometa/wiki

NAMESPACE

@@ -469,6 +469,7 @@ import(jsonlite)
 import(keyring)
 import(readr)
 importFrom(R6,R6Class)
+importFrom(digest,digest)
 importFrom(methods,as)
 importFrom(methods,is)
 importFrom(utils,packageDescription)

R/ISOAbstractObject.R

@@ -6,6 +6,7 @@
 #' @importFrom methods is
 #' @importFrom methods as
 #' @importFrom utils read.csv
+#' @importFrom digest digest
 #' @import XML
 #' @import httr
 #' @import readr
@@ -1692,6 +1693,9 @@ ISOAbstractObject$compare = function(metadataElement1, metadataElement2, method
         text2 <- as.character(metadataElement2)
       }
       same <- (text1 == text2)
+    },
+    "digest" = {
+      digest::digest(metadataElement1) == digest::digest(metadataElement2)
     }
   )
   return(same)

R/profile.R

@@ -8,7 +8,7 @@
     "19115-3" = "https://standards.iso.org/iso/19115/resources/Codelists/cat"
   )
   .geometa.options$internalCodelists <- TRUE
-  .geometa.options$object_comparator <- "print"
+  .geometa.options$object_comparator <- "digest"
 
   #hidden objects
   assign(".geometa.iso", new.env(), envir= asNamespace(pkgname))