R/codeHook.R

Defines functions codeHook

Documented in codeHook

#' 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)

  }
}
PietaSchofield/plibb documentation built on May 6, 2019, 6:45 p.m.