fix replace in writeImageArray

Artur-man · Artur-man · commit 2f90694fa33e · 2026-01-20T22:13:20.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: ImageArray
 Type: Package
 Title: ImageArray: a framework for on-disk and in-memory image arrays
-Version: 0.99.5
+Version: 0.99.6
 Date: 2026-01-20
 Authors@R: 
 	person("Artür", "Manukyan", 
diff --git a/R/ImageArray.R b/R/ImageArray.R
@@ -519,9 +519,10 @@ writeImageArray <- function(
     stop("'replace' must be TRUE or FALSE")
   }
   if (replace) {
-    if (file.exists(ondisk_path)) {
+    if (file.exists(ondisk_path))
       file.remove(ondisk_path)
-    }
+    if(dir.exists(ondisk_path)) 
+      unlink(ondisk_path, recursive = TRUE)
   }
 
   # make Image Array
diff --git a/man/ImageArray-methods.Rd b/man/ImageArray-methods.Rd

Original file line number	Diff line number	Diff line change
`@@ -519,9 +519,10 @@ writeImageArray <- function(`
`519`	`519`	`stop("'replace' must be TRUE or FALSE")`
`520`	`520`	`}`
`521`	`521`	`if (replace) {`
`522`		`- if (file.exists(ondisk_path)) {`
	`522`	`+ if (file.exists(ondisk_path))`
`523`	`523`	`file.remove(ondisk_path)`
`524`		`- }`
	`524`	`+ if(dir.exists(ondisk_path))`
	`525`	`+ unlink(ondisk_path, recursive = TRUE)`
`525`	`526`	`}`
`526`	`527`
`527`	`528`	`# make Image Array`