# \donttest{
# Create temporary CSV files
f1 <- tempfile(fileext = ".csv")
f2 <- tempfile(fileext = ".csv")
f3 <- tempfile(fileext = ".csv")
hdf5_file <- tempfile(fileext = ".h5")
write.table(matrix(rnorm(20), 4, 5), f1, sep = ",",
row.names = FALSE, col.names = TRUE)
write.table(matrix(rnorm(20), 4, 5), f2, sep = ",",
row.names = FALSE, col.names = TRUE)
write.table(matrix(rnorm(20), 4, 5), f3, sep = ",",
row.names = FALSE, col.names = TRUE)
mats <- hdf5_import_multiple(
sources = c(f1, f2, f3),
filename = hdf5_file,
datasets = c("data/exp1", "data/exp2", "data/exp3"),
sep = ","
)
dim(mats$exp1)
hdf5_close_all()
unlink(c(f1, f2, f3, hdf5_file))
# }
Run the code above in your browser using DataLab