## ---- echo=FALSE, results="asis"---------------------------------------------- library(rebook) chapterPreamble() ## ----------------------------------------------------------------------------- example0 <- system.file("example", "test.Rmd", package="rebook") example <- tempfile(fileext=".Rmd") file.copy(example0, example) ## ---- results="asis"---------------------------------------------------------- extractCached(example, chunk="godzilla-1954", object="godzilla") ## ----------------------------------------------------------------------------- godzilla ## ---- results="asis"---------------------------------------------------------- extractCached(example, chunk="ghidorah-1964", object=c("godzilla", "ghidorah")) ## ----------------------------------------------------------------------------- godzilla ghidorah ## ---- results="asis"---------------------------------------------------------- extractCached(example, chunk="godzilla-2014", object="godzilla") ## ----------------------------------------------------------------------------- godzilla ## ---- results="asis"---------------------------------------------------------- extractCached(example, chunk="godzilla-2014", object=c("mechagodzilla", "godzilla")) ## ----------------------------------------------------------------------------- godzilla mechagodzilla ## ---- results="asis"---------------------------------------------------------- prettySessionInfo()