Nothing
## ---- 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.