🐛 N2k_manifest() get a stable fingerprint

A different order of the attributes leads to a different fingerprint
inbo · Feb 6, 2025 · b634f1d · b634f1d
1 parent aa9b75a
commit b634f1d
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/R/n2k_manifest.R b/R/n2k_manifest.R
@@ -35,12 +35,11 @@ setMethod(
       noNA(manifest$fingerprint)
     )
 
-    if (inherits(manifest, "tbl")) {
-      manifest <- as.data.frame(manifest)
-    }
     manifest |>
+      as.data.frame() |>
       distinct(.data$fingerprint, .data$parent) |>
-      arrange(.data$fingerprint, .data$parent) -> manifest
-    new("n2kManifest", Manifest = manifest, Fingerprint = sha1(manifest))
+      arrange(.data$fingerprint, .data$parent) -> manif
+    attributes(manif) <- attributes(manif)[c("names", "row.names", "class")]
+    new("n2kManifest", Manifest = manif, Fingerprint = sha1(manif))
   }
 )