1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
original_data <- array(c(rep(0, 100), 1:100))
example_file <- system.file("h5examples", "h5ex_filters.h5", package = "rhdf5filters")
filters <- c(
"BZIP",
"LZF"
)
if("blosc" %in% available_filters())
filters <- c(filters, "BLOSC")
if("vbz" %in% available_filters())
filters <- c(filters, "VBZ")
if("zstd" %in% available_filters())
filters <- c(filters, "ZSTD")
for(filter in filters) {
expect_equivalent(
rhdf5::h5read(file = example_file, name = filter),
original_data
)
}
|
