Added auto-set headers to filearray load or create function and set the header before on_missing call

Author: dipterix

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.1.8
-Date: 2024-09-03 17:52:24 UTC
-SHA: e4e2f4700fd4b8672305b51dee0f3372b5dedc67
+Version: 0.1.9
+Date: 2024-11-08 16:38:30 UTC
+SHA: 5f59eb137a26b7e2915a36884d8742407ce9fa72

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: filearray
 Type: Package
 Title: File-Backed Array for Out-of-Memory Computation
-Version: 0.1.9
+Version: 0.1.9.1
 Language: en-US
 Encoding: UTF-8
 License: LGPL-3

R/load.R

@@ -25,6 +25,8 @@
 #' @param verbose whether to print out some debug messages
 #' @param on_missing function to handle file array (such as initialization)
 #' when a new array is created; must take only one argument, the array object
+#' @param auto_set_headers whether to automatically set headers if array is 
+#' missing or to be created; default is true
 #' @return A \code{\link{FileArray-class}} instance.
 #' 
 #' @details The file arrays partition out-of-memory array objects and store them 
@@ -197,7 +199,8 @@ filearray_checkload <- function(
 filearray_load_or_create <- function(
     filebase, dimension, on_missing = NULL, type = NA, 
     ..., mode = c("readonly", "readwrite"), symlink_ok = TRUE,
-    initialize = FALSE, partition_size = NA, verbose = FALSE
+    initialize = FALSE, partition_size = NA, verbose = FALSE, 
+    auto_set_headers = TRUE
 ) {
     mode <- match.arg(mode)
     filebase <- normalizePath(filebase, mustWork = FALSE, winslash = "/")
@@ -275,15 +278,17 @@ filearray_load_or_create <- function(
                 partition_size = partition_size,
                 initialize =  initialize
             )
+            # seal the header
+            if( auto_set_headers ) {
+                for(nm in add_header_names) {
+                    arr$set_header(key = nm, value = additional_headers[[nm]], save = FALSE)
+                }
+            }
             # run on_missing if the function exists
             if(is.function(on_missing)) {
                 arr$.mode <- "readwrite"
                 on_missing(arr)
             }
-            # seal the header
-            for(nm in add_header_names) {
-                arr$set_header(key = nm, value = additional_headers[[nm]], save = FALSE)
-            }
             arr$.save_header()
             arr
         }