latex_block() doesn't need the two arguments x and options

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rticles
 Type: Package
 Title: Article Formats for R Markdown
-Version: 0.15.2
+Version: 0.15.3
 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")),

R/jss_article.R

@@ -53,7 +53,7 @@ jss_article <- function(
 }
 
 # wrap the content in a raw latex block
-latex_block <- function(x, options, hook) {
+latex_block <- function(hook) {
   force(hook)
   function(x, options) {
     x2 <- hook(x, options)
@@ -64,7 +64,7 @@ latex_block <- function(x, options, hook) {
 # 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']])
+  hooks[['chunk']] <- latex_block(hooks[['chunk']])
   base$knitr$knit_hooks <- merge_list(base$knitr$knit_hooks, hooks)
   base
 }