Store the absolute path in ReloadedArraySeed constructor.

This protects saveObject() calls from changes in the working directory, which
would break if a relative path was stored in the seed.

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: alabaster.matrix
 Title: Load and Save Artifacts from File
-Version: 1.3.10
-Date: 2024-02-21
+Version: 1.3.11
+Date: 2024-02-24
 Authors@R: person("Aaron", "Lun", role=c("aut", "cre"), email="[email protected]")
 License: MIT + file LICENSE
 Description: 

R/ReloadedArray.R

@@ -60,7 +60,10 @@ ReloadedArraySeed <- function(path, seed=NULL, ...) {
     while (is(seed, "DelayedArray")) {
         seed <- seed@seed
     }
-    new("ReloadedArraySeed", path=path, seed=seed)
+
+    # Need to obtain an absolute path in order for this to be safe in
+    # saveObject(), possibly after changes to the working directory has.
+    new("ReloadedArraySeed", path=normalizePath(path, mustWork=TRUE), seed=seed)
 }
 
 #' @export

tests/testthat/test-ReloadedArray.R

@@ -13,14 +13,14 @@ obj2 <- readObject(dir2)
 
 test_that("ReloadedArrays work correctly", {
     expect_s4_class(obj, "ReloadedArray")
-    expect_identical(BiocGenerics::path(obj), dir)
+    expect_identical(BiocGenerics::path(obj), normalizePath(dir))
     expect_identical(dim(obj), dim(arr))
     expect_identical(extract_array(obj, vector("list", 3)), arr)
     expect_identical(as.array(obj), arr)
     expect_false(is_sparse(obj))
 
     expect_s4_class(obj2, "ReloadedMatrix")
-    expect_identical(BiocGenerics::path(obj2), dir2)
+    expect_identical(BiocGenerics::path(obj2), normalizePath(dir2))
     expect_identical(dim(obj2), dim(x))
     expect_identical(as(extract_sparse_array(obj2, vector("list", 2)), "dgCMatrix"), x)
     expect_true(is_sparse(obj2))
@@ -30,6 +30,16 @@ test_that("ReloadedArrays work correctly", {
     expect_identical(as(obj2@seed, "dgCMatrix"), x)
 })
 
+test_that("ReloadedArrays store the absolute path", {
+    cwd <- getwd()
+    setwd(dirname(dir))
+    on.exit(setwd(cwd))
+
+    obj <- readObject(basename(dir))
+    expect_identical(BiocGenerics::path(obj), normalizePath(dir))
+    expect_identical(as.array(obj), arr)
+})
+
 test_that("ReloadedArrays save correctly", {
     tmp <- tempfile()
     saveObject(obj, tmp, ReloadedArray.reuse.files="none")