Open HDF5 files in read-only mode for readObject()-dispatched functions.

DESCRIPTION

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

R/readArray.R

@@ -35,7 +35,7 @@ readArray <- function(path, metadata, ...) {
     fpath <- file.path(path, "array.h5")
 
     details <- local({
-        fhandle <- H5Fopen(fpath)
+        fhandle <- H5Fopen(fpath, flags="H5F_ACC_RDONLY")
         on.exit(H5Fclose(fhandle), add=TRUE, after=FALSE)
         ghandle <- H5Gopen(fhandle, "dense_array")
         on.exit(H5Gclose(ghandle), add=TRUE, after=FALSE)

R/readSparseMatrix.R

@@ -29,7 +29,7 @@ readSparseMatrix <- function(path, metadata, ...) {
     name <- "compressed_sparse_matrix"
 
     details <- local({
-        fhandle <- H5Fopen(fpath)
+        fhandle <- H5Fopen(fpath, flags="H5F_ACC_RDONLY")
         on.exit(H5Fclose(fhandle), add=TRUE, after=FALSE)
         ghandle <- H5Gopen(fhandle, name)
         on.exit(H5Gclose(ghandle), add=TRUE, after=FALSE)

inst/NEWS.Rd

@@ -9,4 +9,6 @@ However, note that this was not implemented for the soft-deprecated \code{writeS
 \item Added a \code{extract_sparse_array()} method for the \code{WrapperArraySeed} class, for some future-proofing when the seeds eventually make the switch.
 
 \item Bugfix for integer overflow when saving large sparse matrices in \code{saveObject()}.
+
+\item Open all HDF5 files in read-only mode for \code{readObject()} dispatch functions, to avoid permission-related issues.
 }}