# NOT RUN {
file <- system.file("misc", "knitr-markdown.Rmd", package = "inlmisc")
chunks <- ReadCodeChunks(file)
attr(chunks, "path")
names(chunks)
chunks[["named-chunk-2"]]
eval(parse(text = unlist(chunks[c("unnamed-chunk-3", "named-chunk-4")])))
# }
Run the code above in your browser using DataLab