Ready for CRAN

Author: dipterix

DESCRIPTION

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

NEWS.md

@@ -1,3 +1,7 @@
+# filearray 0.2.0
+
+* Additional `audo_set_headers` to function `filearray_load_or_create` to avoid automatically setting headers, with default being `TRUE` for compatibility concerns
+
 # filearray 0.1.9
 
 * Fixed `CRAN` check issue brought by `testthat` update, which requires `bit64` when checking `int64` arrays. Added `bit64` to `Suggests` field to mitigate this check error

filearray.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 21f88fad-b806-4cce-a5b4-b11d735e9125
 
 RestoreWorkspace: No
 SaveWorkspace: No

tests/testthat/test-method_add.R

@@ -161,12 +161,12 @@ test_that("method: addition", {
     testthat::expect_error( arr_int + tmp_arr )
     testthat::expect_error( tmp_arr + arr_int )
     testthat::expect_equal(
-        (arr_int + 1:length(arr_int))[dimnames = NULL],
-        arr_int[dimnames = NULL] + 1:length(arr_int)
+        (arr_int + seq_len(length(arr_int)))[dimnames = NULL],
+        arr_int[dimnames = NULL] + seq_len(length(arr_int))
     )
     testthat::expect_equal(
-        (1:length(arr_int) + arr_int)[dimnames = NULL],
-        1:length(arr_int) + arr_int[dimnames = NULL]
+        (seq_len(length(arr_int)) + arr_int)[dimnames = NULL],
+        seq_len(length(arr_int)) + arr_int[dimnames = NULL]
     )
 
 })

tests/testthat/test-method_sub.R

@@ -161,12 +161,12 @@ test_that("method: addition", {
     testthat::expect_error( arr_int - tmp_arr )
     testthat::expect_error( tmp_arr - arr_int )
     testthat::expect_equal(
-        (arr_int - 1:length(arr_int))[dimnames = NULL],
-        arr_int[dimnames = NULL] - 1:length(arr_int)
+        (arr_int - seq_len(length(arr_int)))[dimnames = NULL],
+        arr_int[dimnames = NULL] - seq_len(length(arr_int))
     )
     testthat::expect_equal(
-        (1:length(arr_int) - arr_int)[dimnames = NULL],
-        1:length(arr_int) - arr_int[dimnames = NULL]
+        (seq_len(length(arr_int)) - arr_int)[dimnames = NULL],
+        seq_len(length(arr_int)) - arr_int[dimnames = NULL]
     )
 
 })

vignettes/performance.Rmd

@@ -36,11 +36,13 @@ filearray_threads()
 
 # Create file array and initialize partitions
 set.seed(1)
-file <- tempfile(); unlink(file, recursive = TRUE)
+file <- tempfile()
+unlink(file, recursive = TRUE)
 x_dbl <- filearray_create(file, rep(100, 4))
 x_dbl$initialize_partition()
 
-file <- tempfile(); unlink(file, recursive = TRUE)
+file <- tempfile()
+unlink(file, recursive = TRUE)
 x_flt <- filearray_create(file, rep(100, 4), type = 'float')
 x_flt$initialize_partition()