# NOT RUN {
path <- system.file("doc", "knitr-intro.Rmd", package = "knitr")
chunks <- ReadCodeChunks(path)
attr(chunks, "path")
names(chunks)
chunks[["show-off"]]
eval(parse(text = unlist(chunks[c("show-off", "graphics")])))
# }
Run the code above in your browser using DataLab