Fix bug in checksumming files

Closes #17

Author: amoeba

R/editing.R

@@ -58,8 +58,8 @@ publish_object <- function(mn,
                  identifier = pid,
                  formatId = format_id,
                  size = file.size(path),
-                 checksum = digest::digest(path, algo="sha256"),
-                 checksumAlgorithm = "SHA256",
+                 checksum = digest::digest(path, algo = "sha1", serialize = FALSE, file = TRUE),
+                 checksumAlgorithm = "SHA1",
                  submitter = me,
                  rightsHolder = me,
                  fileName = basename(path))
@@ -131,8 +131,8 @@ update_object <- function(mn, pid, path, format_id=NULL) {
   sysmeta@identifier <- new_pid
   sysmeta@formatId <- format_id
   sysmeta@size <- file.size(path)
-  sysmeta@checksum <- digest::digest(path, algo = "sha256")
-  sysmeta@checksumAlgorithm <- "SHA256"
+  sysmeta@checksum <- digest::digest(path, algo = "sha1", serialize = FALSE, file = TRUE)
+  sysmeta@checksumAlgorithm <- "SHA1"
   slot(sysmeta, "obsoletes", check = FALSE) <- NA
   slot(sysmeta, "obsoletedBy", check = FALSE) <- NA
   sysmeta@fileName <- basename(path)
@@ -327,8 +327,8 @@ publish_update <- function(mn,
                                   identifier = metadata_updated_pid,
                                   formatId = "eml://ecoinformatics.org/eml-2.1.1",
                                   size = file.size(eml_path),
-                                  checksum = digest::digest(eml_path, algo = "sha256"),
-                                  checksumAlgorithm = "SHA256",
+                                  checksum = digest::digest(eml_path, algo = "sha1", serialize = FALSE, file = TRUE),
+                                  checksumAlgorithm = "SHA1",
                                   submitter = me,
                                   rightsHolder = metadata_sysmeta@rightsHolder,
                                   obsoletes = metadata_pid,
@@ -563,8 +563,8 @@ update_resource_map <- function(mn,
   new_rm_sysmeta <- sysmeta
   new_rm_sysmeta@identifier <- identifier
   new_rm_sysmeta@size <- file.size(new_rm_path)
-  new_rm_sysmeta@checksum <- digest::digest(new_rm_path, algo = "sha256")
-  new_rm_sysmeta@checksumAlgorithm <- "SHA256"
+  new_rm_sysmeta@checksum <- digest::digest(new_rm_path, algo = "sha1", serialize = FALSE, file = TRUE)
+  new_rm_sysmeta@checksumAlgorithm <- "SHA1"
   new_rm_sysmeta@rightsHolder <- previous_rights_holder
   new_rm_sysmeta@obsoletes <- resource_map_pid
   slot(new_rm_sysmeta, "obsoletedBy", check = FALSE) <- NA

R/helpers.R

@@ -28,8 +28,8 @@ create_dummy_metadata <- function(mn, data_pids=NULL) {
                  id = pid,
                  formatId = "eml://ecoinformatics.org/eml-2.1.1",
                  size = file.size(metadata_file),
-                 checksum = digest::digest(metadata_file, algo = "sha256"),
-                 checksumAlgorithm = "SHA256",
+                 checksum = digest::digest(metadata_file, algo = "sha1", serialize = FALSE, file = TRUE),
+                 checksumAlgorithm = "SHA1",
                  submitter = me,
                  rightsHolder = me,
                  fileName = "dummy_science_metadata.xml")
@@ -65,8 +65,8 @@ create_dummy_object <- function(mn) {
                  id = pid,
                  formatId = "application/octet-stream",
                  size = file.size(tmp),
-                 checksum = digest::digest(tmp, algo = "sha256"),
-                 checksumAlgorithm = "SHA256",
+                 checksum = digest::digest(tmp, algo = "sha1", serialize = FALSE, file = TRUE),
+                 checksumAlgorithm = "SHA1",
                  submitter = me,
                  rightsHolder = me,
                  fileName = "dummy_object")
@@ -118,8 +118,8 @@ create_dummy_package <- function(mn, size = 2) {
                  identifier = pid,
                  formatId = "http://www.openarchives.org/ore/terms",
                  size = file.size(resmap_path),
-                 checksum = digest::digest(resmap_path, algo = "sha256"),
-                 checksumAlgorithm = "SHA256",
+                 checksum = digest::digest(resmap_path, algo = "sha1", serialize = FALSE, file = TRUE),
+                 checksumAlgorithm = "SHA1",
                  submitter = me,
                  rightsHolder = me,
                  fileName = "dummy_resource_map.xml")
@@ -158,8 +158,8 @@ create_dummy_parent_package <- function(mn, children) {
                  identifier = pid,
                  formatId = "http://www.openarchives.org/ore/terms",
                  size = file.size(resmap_path),
-                 checksum = digest::digest(resmap_path, algo = "sha256"),
-                 checksumAlgorithm = "SHA256",
+                 checksum = digest::digest(resmap_path, algo = "sha1", serialize = FALSE, file = TRUE),
+                 checksumAlgorithm = "SHA1",
                  submitter = me,
                  rightsHolder = me,
                  fileName = "dummy_resource_map.xml")