Raw knitr chunks (inside hook context)

get_raw_chunks.R

# test file
sample_chunk <- "
```{r hello, testing=as.logical(1), another=1 + 1}
1 + 1
```"
file = "sample.Rmd"
writeLines(sample_chunk, con = file)
foo_hook <- function(before, options, envir) {
  # note: this returns raw knitr chunks in list format
  # has attribute of "chunk_opts"
  print(knitr::knit_code$get(options$label))
}
knitr::knit_hooks$set(testing = foo_hook)
outfile <- knitr::knit(file)
# delete temp md file
on.exit(unlink(outfile))