# \donttest{
fn <- tempfile(fileext = ".h5")
X <- hdf5_create_matrix(fn, "data/X", data = matrix(rnorm(2000), 20, 100))
blocks <- split(X, n_blocks = 4) # 4 row-blocks of 5 rows each
length(blocks) # 4
lapply(blocks, close)
hdf5_close_all()
unlink(fn)
# }
Run the code above in your browser using DataLab