further factor out the common code in jss_article() and rjournal_article() into a function set_sweave_hooks()

Author: yihui

R/jss_article.R

@@ -49,11 +49,7 @@ jss_article <- function(
     )
   }
 
-  hooks <- knitr::hooks_sweave(c('CodeInput', 'CodeOutput', 'CodeChunk'))
-  hooks[['chunk']] <- latex_block(x, options, hooks[['chunk']])
-  base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, hooks)
-
-  base
+  set_sweave_hooks(base, c('CodeInput', 'CodeOutput', 'CodeChunk'))
 }
 
 # wrap the content in a raw latex block
@@ -64,3 +60,11 @@ latex_block <- function(x, options, hook) {
     if (identical(x, x2)) x else paste0('```{=latex}\n', x2, '\n```')
   }
 }
+
+# use knitr's sweave hooks, but wrap chunk output in raw latex blocks
+set_sweave_hooks <- function(base, ...) {
+  hooks <- knitr::hooks_sweave(...)
+  hooks[['chunk']] <- latex_block(x, options, hooks[['chunk']])
+  base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, hooks)
+  base
+}

R/rjournal_article.R

@@ -129,9 +129,5 @@ rjournal_article <- function(..., keep_tex = TRUE, citation_package = 'natbib')
   # Mostly copied from knitr::render_sweave
   base$knitr$opts_chunk$comment <- "#>"
 
-  hooks <- knitr::hooks_sweave()
-  hooks[['chunk']] <- latex_block(x, options, hooks[['chunk']])
-  base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, hooks)
-
-  base
+  set_sweave_hooks(base)
 }