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