#' simple knitr hook for code chunk referencing
#'
#'
#' @export
codeHook <- function(before, options, envir) {
if(before){
sprintf('\\begin{rcode}')
}else{
sprintf('\\caption{%s}\\label{%s}\\end{rcode}',
options$code.cap,options$label)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.