# \donttest{
available <- get_available_ram()
cat("Available RAM:", round(available, 2), "GB\n")
# Use it to decide how much data to load
fn <- tempfile(fileext = ".h5")
X <- hdf5_create_matrix(fn, "data/M",
data = matrix(rnorm(1000), 100, 10))
size_gb <- prod(dim(X)) * 8 / 1e9
if (get_available_ram() > size_gb * 1.2) {
mat <- as.matrix(X)
} else {
mat <- X[1:50, ]
}
hdf5_close_all()
unlink(fn)
# }
Run the code above in your browser using DataLab