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
|
NAME <- "limit"
source(file.path('_helper', 'init.R'))
# - Simple limit ---------------------------------------------------------------
A <- B <- letters[1:5]
B[2] <- "B"
B[6] <- "F"
# diffChr(A, B)
all.equal(as.character(diffChr(A, B, line.limit=2)), rdsf(100))
all.equal(as.character(diffChr(A, B, line.limit=3)), rdsf(200))
# - More Extensive Limits ------------------------------------------------------
Puromycin2 <- Puromycin
set.seed(1)
Puromycin2$conc[c(8, 15:19, 22)] <- round(runif(7), 2)
Puromycin2$state[17] <- "treated"
all.equal(
as.character(
diffPrint(Puromycin, Puromycin2, line.limit=15, mode="sidebyside")
),
rdsf(300)
)
# # Not working right
# diffPrint(Puromycin, Puromycin2, line.limit=15, mode="context")
all.equal(
as.character(
diffPrint(Puromycin, Puromycin2, line.limit=15, mode="unified")
),
rdsf(500)
)
all.equal(
as.character(
diffPrint(Puromycin, Puromycin2, line.limit=5, mode="sidebyside")
),
rdsf(600)
)
all.equal(
as.character(
diffPrint(Puromycin, Puromycin2, line.limit=5, mode="context")
),
rdsf(700)
)
all.equal(
as.character(
diffPrint(Puromycin, Puromycin2, line.limit=5, mode="unified")
),
rdsf(800)
)
Puromycin3 <- Puromycin2
names(Puromycin3)[3L] <- "blargh"
all.equal(
as.character(
diffPrint(Puromycin, Puromycin3, line.limit=7, mode="sidebyside")
),
rdsf(900)
)
all.equal(
as.character(
diffPrint(Puromycin, Puromycin3, line.limit=6, mode="context")
),
rdsf(1000)
)
# - Dual limit values ----------------------------------------------------------
A <- letters[1:10]
B <- LETTERS[1:10]
all.equal(
as.character(diffChr(A, B, line.limit=c(10, 3))), rdsf(1100)
)
all.equal(
as.character(diffChr(A, B, line.limit=c(13, 3))), rdsf(1200)
)
try(diffChr(A, B, line.limit=c(3, 13))) # "larger than or"
# - Cause errors ---------------------------------------------------------------
try(diffChr(letters, LETTERS, line.limit=1:3)) # "vector of length"
# - Vanishing header -----------------------------------------------------------
# issue 64
all.equal(
as.character(
diffChr(
letters, letters[-13], context=auto_context(0, 10), line.limit=1L,
pager="off"
) ),
rdsf(1300)
)
|
