| Line 14... |
Line 14... |
| 14 |
unit(rep(1:4, 2), "npc"))
|
14 |
unit(rep(1:4, 2), "npc"))
|
| 15 |
unitCheck(rep(simpleUnit, each=2),
|
15 |
unitCheck(rep(simpleUnit, each=2),
|
| 16 |
unit(rep(1:4, each=2), "npc"))
|
16 |
unit(rep(1:4, each=2), "npc"))
|
| 17 |
unitCheck(rep(simpleUnit, c(2, 1, 2, 1)),
|
17 |
unitCheck(rep(simpleUnit, c(2, 1, 2, 1)),
|
| 18 |
unit(rep(1:4, c(2, 1, 2, 1)), "npc"))
|
18 |
unit(rep(1:4, c(2, 1, 2, 1)), "npc"))
|
| 19 |
unitCheck(rep(simpleUnit, each=2, len=4),
|
19 |
unitCheck(rep(simpleUnit, each=2, length.out=4),
|
| 20 |
unit(rep(1:4, each=2, len=4), "npc"))
|
20 |
unit(rep(1:4, each=2, length.out=4), "npc"))
|
| 21 |
unitCheck(rep(simpleUnit, each=2, len=10),
|
21 |
unitCheck(rep(simpleUnit, each=2, length.out=10),
|
| 22 |
unit(rep(1:4, each=2, len=10), "npc"))
|
22 |
unit(rep(1:4, each=2, length.out=10), "npc"))
|
| 23 |
unitCheck(rep(simpleUnit, each=2, times=3),
|
23 |
unitCheck(rep(simpleUnit, each=2, times=3),
|
| 24 |
unit(rep(1:4, each=2, times=3), "npc"))
|
24 |
unit(rep(1:4, each=2, times=3), "npc"))
|
| 25 |
|
25 |
|
| 26 |
simpleUnitMixed <- unit(1:4, c("npc", "cm"))
|
26 |
simpleUnitMixed <- unit(1:4, c("npc", "cm"))
|
| 27 |
|
27 |
|
| Line 31... |
Line 31... |
| 31 |
unit(rep(1:4, each=2),
|
31 |
unit(rep(1:4, each=2),
|
| 32 |
rep(c("npc", "cm"), each=2)))
|
32 |
rep(c("npc", "cm"), each=2)))
|
| 33 |
unitCheck(rep(simpleUnitMixed, c(2, 1, 2, 1)),
|
33 |
unitCheck(rep(simpleUnitMixed, c(2, 1, 2, 1)),
|
| 34 |
unit(rep(1:4, c(2, 1, 2, 1)),
|
34 |
unit(rep(1:4, c(2, 1, 2, 1)),
|
| 35 |
rep(c("npc", "cm"), c(2, 1))))
|
35 |
rep(c("npc", "cm"), c(2, 1))))
|
| 36 |
unitCheck(rep(simpleUnitMixed, each=2, len=4),
|
36 |
unitCheck(rep(simpleUnitMixed, each=2, length.out=4),
|
| 37 |
unit(rep(1:4, each=2, len=4),
|
37 |
unit(rep(1:4, each=2, length.out=4),
|
| 38 |
rep(c("npc", "cm"), each=2, len=4)))
|
38 |
rep(c("npc", "cm"), each=2, length.out=4)))
|
| 39 |
unitCheck(rep(simpleUnitMixed, each=2, len=10),
|
39 |
unitCheck(rep(simpleUnitMixed, each=2, length.out=10),
|
| 40 |
unit(rep(1:4, each=2, len=10),
|
40 |
unit(rep(1:4, each=2, length.out=10),
|
| 41 |
rep(c("npc", "cm"), each=2, len=10)))
|
41 |
rep(c("npc", "cm"), each=2, length.out=10)))
|
| 42 |
unitCheck(rep(simpleUnitMixed, each=2, times=3),
|
42 |
unitCheck(rep(simpleUnitMixed, each=2, times=3),
|
| 43 |
unit(rep(1:4, each=2, times=3),
|
43 |
unit(rep(1:4, each=2, times=3),
|
| 44 |
rep(c("npc", "cm"), each=2, times=3)))
|
44 |
rep(c("npc", "cm"), each=2, times=3)))
|
| 45 |
|
45 |
|
| 46 |
units <- c("npc", "inch", "strwidth", "cm")
|
46 |
units <- c("npc", "inch", "strwidth", "cm")
|
| Line 56... |
Line 56... |
| 56 |
rep(dataL, each=2)))
|
56 |
rep(dataL, each=2)))
|
| 57 |
unitCheck(rep(unitWithData, c(2, 1, 2, 1)),
|
57 |
unitCheck(rep(unitWithData, c(2, 1, 2, 1)),
|
| 58 |
unit(rep(1:4, c(2, 1, 2, 1)),
|
58 |
unit(rep(1:4, c(2, 1, 2, 1)),
|
| 59 |
rep(units, c(2, 1, 2, 1)),
|
59 |
rep(units, c(2, 1, 2, 1)),
|
| 60 |
rep(dataL, c(2, 1, 2, 1))))
|
60 |
rep(dataL, c(2, 1, 2, 1))))
|
| 61 |
unitCheck(rep(unitWithData, each=2, len=4),
|
61 |
unitCheck(rep(unitWithData, each=2, length.out=4),
|
| 62 |
unit(rep(1:4, each=2, len=4),
|
62 |
unit(rep(1:4, each=2, length.out=4),
|
| 63 |
rep(units, each=2, len=4),
|
63 |
rep(units, each=2, length.out=4),
|
| 64 |
rep(dataL, each=2, len=4)))
|
64 |
rep(dataL, each=2, length.out=4)))
|
| 65 |
unitCheck(rep(unitWithData, each=2, len=10),
|
65 |
unitCheck(rep(unitWithData, each=2, length.out=10),
|
| 66 |
unit(rep(1:4, each=2, len=10),
|
66 |
unit(rep(1:4, each=2, length.out=10),
|
| 67 |
rep(units, each=2, len=10),
|
67 |
rep(units, each=2, length.out=10),
|
| 68 |
rep(dataL, each=2, len=10)))
|
68 |
rep(dataL, each=2, length.out=10)))
|
| 69 |
unitCheck(rep(unitWithData, each=2, times=3),
|
69 |
unitCheck(rep(unitWithData, each=2, times=3),
|
| 70 |
unit(rep(1:4, each=2, times=3),
|
70 |
unit(rep(1:4, each=2, times=3),
|
| 71 |
rep(units, each=2, times=3),
|
71 |
rep(units, each=2, times=3),
|
| 72 |
rep(dataL, each=2, times=3)))
|
72 |
rep(dataL, each=2, times=3)))
|
| 73 |
|
73 |
|
| Line 78... |
Line 78... |
| 78 |
unit(1, "npc") + unit(rep(1:2, 2), "inch"))
|
78 |
unit(1, "npc") + unit(rep(1:2, 2), "inch"))
|
| 79 |
unitCheck(rep(unitArith, each=2),
|
79 |
unitCheck(rep(unitArith, each=2),
|
| 80 |
unit(1, "npc") + unit(rep(1:2, each=2), "inch"))
|
80 |
unit(1, "npc") + unit(rep(1:2, each=2), "inch"))
|
| 81 |
unitCheck(rep(unitArith, c(2, 1)),
|
81 |
unitCheck(rep(unitArith, c(2, 1)),
|
| 82 |
unit(1, "npc") + unit(rep(1:2, c(2 ,1)), "inch"))
|
82 |
unit(1, "npc") + unit(rep(1:2, c(2 ,1)), "inch"))
|
| 83 |
unitCheck(rep(unitArith, each=2, len=3),
|
83 |
unitCheck(rep(unitArith, each=2, length.out=3),
|
| 84 |
unit(1, "npc") + unit(rep(1:2, each=2, len=3), "inch"))
|
84 |
unit(1, "npc") + unit(rep(1:2, each=2, length.out=3), "inch"))
|
| 85 |
unitCheck(rep(unitArith, each=2, len=5),
|
85 |
unitCheck(rep(unitArith, each=2, length.out=5),
|
| 86 |
unit(1, "npc") + unit(rep(1:2, each=2, len=5), "inch"))
|
86 |
unit(1, "npc") + unit(rep(1:2, each=2, length.out=5), "inch"))
|
| 87 |
unitCheck(rep(unitArith, each=2, times=3),
|
87 |
unitCheck(rep(unitArith, each=2, times=3),
|
| 88 |
unit(1, "npc") + unit(rep(1:2, each=2, times=3), "inch"))
|
88 |
unit(1, "npc") + unit(rep(1:2, each=2, times=3), "inch"))
|
| 89 |
|
89 |
|
| 90 |
# unit.list
|
90 |
# unit.list
|
| 91 |
arg1 <- unit(1, "npc") + unit(1:2, "inch")
|
91 |
arg1 <- unit(1, "npc") + unit(1:2, "inch")
|
| Line 96... |
Line 96... |
| 96 |
unit.c(arg1, arg2, arg1, arg2))
|
96 |
unit.c(arg1, arg2, arg1, arg2))
|
| 97 |
unitCheck(rep(unitList, each=2),
|
97 |
unitCheck(rep(unitList, each=2),
|
| 98 |
unit.c(rep(arg1, each=2), rep(arg2, 2)))
|
98 |
unit.c(rep(arg1, each=2), rep(arg2, 2)))
|
| 99 |
unitCheck(rep(unitList, c(2, 1, 2)),
|
99 |
unitCheck(rep(unitList, c(2, 1, 2)),
|
| 100 |
unit.c(rep(arg1, c(2, 1)), rep(arg2, 2)))
|
100 |
unit.c(rep(arg1, c(2, 1)), rep(arg2, 2)))
|
| 101 |
unitCheck(rep(unitList, each=2, len=4),
|
101 |
unitCheck(rep(unitList, each=2, length.out=4),
|
| 102 |
rep(arg1, each=2))
|
102 |
rep(arg1, each=2))
|
| 103 |
unitCheck(rep(unitList, each=2, len=8),
|
103 |
unitCheck(rep(unitList, each=2, length.out=8),
|
| 104 |
unit.c(rep(arg1, each=2), rep(arg2, 2), rep(arg1, each=2, len=2)))
|
104 |
unit.c(rep(arg1, each=2), rep(arg2, 2), rep(arg1, each=2, length.out=2)))
|
| 105 |
unitCheck(rep(unitList, each=2, times=3),
|
105 |
unitCheck(rep(unitList, each=2, times=3),
|
| 106 |
unit.c(rep(arg1, each=2), rep(arg2, 2),
|
106 |
unit.c(rep(arg1, each=2), rep(arg2, 2),
|
| 107 |
rep(arg1, each=2), rep(arg2, 2),
|
107 |
rep(arg1, each=2), rep(arg2, 2),
|
| 108 |
rep(arg1, each=2), rep(arg2, 2)))
|
108 |
rep(arg1, each=2), rep(arg2, 2)))
|
| 109 |
|
109 |
|
The R Project SVN
R