# \donttest{
tmp <- tempfile(fileext = ".h5")
X <- hdf5_create_matrix(tmp, "data/matrix", data = matrix(rnorm(100), 10, 10))
X <- hdf5_matrix(tmp, "data/matrix")
is_open(X) # TRUE
close(X)
is_open(X) # FALSE
unlink(tmp)
# }
Run the code above in your browser using DataLab