## ----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)