write_zarr_array duplicate path?

[giovp]

Hi,

When running this code

library(Rarr)
image <- array(as.double(rnorm(3*50*50)),dim = c(3,50,50))
Rarr::write_zarr_array(image,
                       zarr_array_path = "new.zarr",
                       chunk_dim = dim(image))

it seems to write to a file named "new.zarrnew.zarr" . Potential bug?

[Artur-man]

In .normalize_array_path, normalizePath doesn't normalize the path of a file/dir that doesnt exist, hence root and path are duplicates of each other.

> path <- "new.zarr"
> dir.exists("new.zarr") | file.exists(path)
[1] FALSE
> path <- normalizePath(path, winslash = "/", mustWork = FALSE)
> path 
[1] "new.zarr"
> gsub(x = path, "(^[[:alnum:]:.]*/)(.*)", replacement = "\\1")
[1] "new.zarr"
> gsub(x = path, "(^[[:alnum:]:.]*/)(.*)", replacement = "\\2")
[1] "new.zarr"