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