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
|
## ---- echo=FALSE--------------------------------------------------------------
library(diffobj)
old.opt <- options(
diffobj.disp.width=80, diffobj.pager="off", diffobj.format="html"
)
## ---- results="asis"----------------------------------------------------------
a <- b <- matrix(1:100, ncol=2)
a <- a[-20,]
b <- b[-45,]
b[c(18, 44)] <- 999
diffPrint(target=a, current=b)
## ---- results="asis", echo=FALSE----------------------------------------------
diffPrint(target=a, current=b)[1]
## ---- results="asis", echo=FALSE----------------------------------------------
diffPrint(target=a, current=b)[2:10]
## ---- results="asis", echo=FALSE----------------------------------------------
diffPrint(target=a, current=b)[3]
## ---- results="asis", echo=FALSE----------------------------------------------
diffPrint(target=a, current=b)[6:9]
## ---- results="asis", echo=FALSE----------------------------------------------
diffPrint(target=a, current=b)[8:9]
## ---- results="asis"----------------------------------------------------------
state.abb2 <- state.abb[-16]
state.abb2[37] <- "Pennsylvania"
diffPrint(state.abb, state.abb2)
## ---- results="asis"----------------------------------------------------------
mdl1 <- lm(Sepal.Length ~ Sepal.Width, iris)
mdl2 <- lm(Sepal.Length ~ Sepal.Width + Species, iris)
diffStr(mdl1$qr, mdl2$qr, line.limit=15)
## ---- results="asis"----------------------------------------------------------
diffChr(letters[1:3], c("a", "B", "c"))
## ---- eval=FALSE--------------------------------------------------------------
# x <- diffPrint(letters, LETTERS)
# x # or equivalently: `show(x)`
## ---- results="asis"----------------------------------------------------------
summary(diffStr(mdl1, mdl2))
## ---- results="asis", eval=FALSE----------------------------------------------
# x <- y <- letters[24:26]
# y[2] <- "GREMLINS"
# diffChr(x, y)
## ---- results="asis", echo=FALSE----------------------------------------------
x <- y <- letters[24:26]
y[2] <- "GREMLINS"
diffChr(x, y, mode="sidebyside")
## ---- results="asis", echo=FALSE----------------------------------------------
x <- y <- letters[24:26]
y[2] <- "GREMLINS"
diffChr(x, y, mode="unified")
## ---- results="asis", echo=FALSE----------------------------------------------
x <- y <- letters[24:26]
y[2] <- "GREMLINS"
diffChr(x, y, mode="context")
## ---- results="asis"----------------------------------------------------------
diffChr(x, y, color.mode="rgb")
## ---- eval=FALSE--------------------------------------------------------------
# v1 <- 1:5e4
# v2 <- v1[-sample(v1, 100)]
# diffChr(v1, v2, word.diff=FALSE)
## ---- eval=FALSE--------------------------------------------------------------
# diffPrint(v1, v2)
## -----------------------------------------------------------------------------
ses(letters[1:5], letters[c(2:3, 5)])
## ---- echo=FALSE--------------------------------------------------------------
options(old.opt)
|
