1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
test_h5mread_from_reshaped_2D <- function()
{
m0 <- matrix(1:60, ncol=6)
M0 <- writeHDF5Array(m0, name="M0")
## Invalid/unsupported reshapings.
checkException(h5mread_from_reshaped(path(M0), "M0", dim=c(11, 6),
starts=list(NULL, NULL)))
checkException(h5mread_from_reshaped(path(M0), "M0", dim=c(5, 2, 6),
starts=list(NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(M0), "M0", dim=c(6, 10),
starts=list(NULL, NULL)))
## No reshaping.
dim <- dim(m0)
checkException(h5mread_from_reshaped(path(M0), "M0", dim,
starts=list(NULL)))
checkException(h5mread_from_reshaped(path(M0), "M0", dim,
starts=list(NULL, NULL, NULL)))
starts <- list(NULL, NULL)
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m0, current)
starts <- list(c(3:7, 10:6), NULL)
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m0[starts[[1]], , drop=FALSE], current)
## Collapse the 2 dimensions.
dim <- 60
checkException(h5mread_from_reshaped(path(M0), "M0", dim,
starts=list(NULL, NULL)))
checkException(h5mread_from_reshaped(path(M0), "M0", dim,
starts=list("xx")))
m1 <- `dim<-`(m0, dim) # reshape 'm0'
starts <- list(NULL)
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m1, current)
starts <- list(1:60)
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m1, current)
starts <- list(c(60:1, 1:60))
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m1[starts[[1]], drop=FALSE], current)
starts <- list(c(31:29, 8:12))
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m1[starts[[1]], drop=FALSE], current)
starts <- list(integer(0))
current <- h5mread_from_reshaped(path(M0), "M0", dim, starts=starts)
checkIdentical(m1[starts[[1]], drop=FALSE], current)
}
test_h5mread_from_reshaped_3D <- function()
{
a0 <- array(1:350, c(10, 5, 7))
A0 <- writeHDF5Array(a0, name="A0")
## Invalid/unsupported reshapings.
checkException(h5mread_from_reshaped(path(A0), "A0", dim=c(10, 4, 7),
starts=list(NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim=c(10, 5, 7, 1),
starts=list(NULL, NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim=c(2, 25, 7),
starts=list(NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim=c(5, 10, 7),
starts=list(NULL, NULL, NULL)))
## No reshaping.
dim <- dim(a0)
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, NULL, NULL, NULL)))
starts <- list(NULL, NULL, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a0, current)
starts <- list(c(3:7, 10:6), NULL, 7:6)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a0[starts[[1]], , starts[[3]], drop=FALSE], current)
## Collapse the first 2 dimensions.
dim <- c(50, 7)
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list("xx", NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, "xx")))
a1 <- `dim<-`(a0, dim) # reshape 'a0'
starts <- list(NULL, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(1:50, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(c(50:1, 1:50), NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], , drop=FALSE], current)
starts <- list(c(31:29, 8:12), 7:5)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
starts <- list(integer(0), NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], , drop=FALSE], current)
starts <- list(integer(0), 7:5)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
starts <- list(integer(0), integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
## Collapse the last 2 dimensions.
dim <- c(10, 35)
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list("xx", NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, "xx")))
a1 <- `dim<-`(a0, dim) # reshape 'a0'
starts <- list(NULL, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(NULL, 1:35)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(NULL, c(35:1, 1:35))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[ , starts[[2]], drop=FALSE], current)
starts <- list(7:5, c(31:29, 8:16))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
starts <- list(NULL, integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[ , starts[[1]], drop=FALSE], current)
starts <- list(7:5, integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
starts <- list(integer(0), integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], drop=FALSE], current)
## Collapse the 3 dimensions.
dim <- 350
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list(NULL, NULL)))
checkException(h5mread_from_reshaped(path(A0), "A0", dim,
starts=list("xx")))
a1 <- `dim<-`(a0, dim) # reshape 'a0'
starts <- list(NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(1:350)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(c(350:1, 1:350))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], drop=FALSE], current)
starts <- list(c(71:29, 68:133))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], drop=FALSE], current)
starts <- list(integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], drop=FALSE], current)
}
test_h5mread_from_reshaped_4D <- function()
{
a0 <- array(runif(4200), c(15, 4, 7, 10))
A0 <- writeHDF5Array(a0, name="A0")
## Collapse the 2nd & 3rd dimensions.
dim <- c(15, 28, 10)
a1 <- `dim<-`(a0, dim) # reshape 'a0'
starts <- list(NULL, NULL, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(NULL, 1:28, NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1, current)
starts <- list(NULL, c(28:1, 1:28), NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[ , starts[[2]], , drop=FALSE], current)
starts <- list(NULL, c(21:9, 7:15), 7:5)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[ , starts[[2]], starts[[3]], drop=FALSE], current)
starts <- list(NULL, integer(0), NULL)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[ , starts[[2]], , drop=FALSE], current)
starts <- list(8:14, integer(0), 7:5)
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], starts[[3]], drop=FALSE],
current)
starts <- list(14:8, integer(0), integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], starts[[3]], drop=FALSE],
current)
starts <- list(integer(0), integer(0), integer(0))
current <- h5mread_from_reshaped(path(A0), "A0", dim, starts=starts)
checkIdentical(a1[starts[[1]], starts[[2]], starts[[3]], drop=FALSE],
current)
}
|
