reuse knitr's sweave output hooks, instead of copying them over to this package (#311)

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rticles
 Type: Package
 Title: Article Formats for R Markdown
-Version: 0.15
+Version: 0.15.1
 Authors@R: c(
   person("JJ", "Allaire", role = "aut", email = "jj@rstudio.com"),
   person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
@@ -56,3 +56,4 @@ BugReports: https://github.com/rstudio/rticles/issues
 RoxygenNote: 7.1.1
 Suggests: testit, bookdown, xtable
 Encoding: UTF-8
+Remotes: yihui/knitr

NEWS.md

@@ -1,3 +1,8 @@
+rticles 0.16
+---------------------------------------------------------------------
+
+
+
 rticles 0.15
 ---------------------------------------------------------------------
 

R/jss_article.R

@@ -49,29 +49,14 @@ jss_article <- function(
     )
   }
 
-  hook_chunk <- function(x, options) {
-    if (output_asis(x, options)) return(x)
-    paste0('```{=latex}\n\\begin{CodeChunk}\n', x, '\\end{CodeChunk}\n```')
-  }
-  hook_input <- function(x, options) {
-    if (length(x)) {
-      x <- knitr:::hilight_source(x, 'sweave', options)
-    }
-    paste0(c('\n\\begin{CodeInput}', x, '\\end{CodeInput}', ''),
-      collapse = '\n')
-  }
-  hook_output <- function(x, options) {
-    paste0('\n\\begin{CodeOutput}\n', x, '\\end{CodeOutput}\n')
+  hooks <- knitr::hooks_sweave(c('CodeInput', 'CodeOutput', 'CodeChunk'))
+  hook_chunk <- hooks[['chunk']]
+  hooks[['chunk']] <- function(x, options) {
+    x2 <- hook_chunk(x, options)
+    if (identical(x, x2)) x else paste0('```{=latex}\n', x2, '\n```')
   }
 
-  base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, list(
-    chunk   = hook_chunk,
-    source  = hook_input,
-    output  = hook_output,
-    message = hook_output,
-    warning = hook_output,
-    plot = knitr::hook_plot_tex
-  ))
+  base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, hooks)
 
   base
 }