rjournal
diff --git a/‎R/distill_article.R‎
Lines changed: 13 additions & 2 deletions b/‎R/distill_article.R‎
Lines changed: 13 additions & 2 deletions
@@ -327,13 +327,24 @@ rjournal_web_article <- function(toc = FALSE,
 rjournal_pdf_article <- function(..., self_contained = FALSE) {
  fmt <- rticles::rjournal_article(...)
  post_process <- fmt$post_processor
- fmt$post_processor <- function(...) {
+ fmt$post_processor <- function(metadata, utf8_input, output_file, clean, verbose) {
+
+ # Replace \@ref(***) with \ref{***}
+ file <- xfun::with_ext(output_file, '.tex')
+ lines <- xfun::read_utf8(file)
+ ## From bookdown/R/latex.R
+ lines = gsub(
+ '(?<!\\\\textbackslash{})@ref\\(([-/:[:alnum:]]+)\\)', '\\\\ref{\\1}', lines,
+ perl = TRUE
+    )
+ xfun::write_utf8(lines, file)
+
  sty_origin <- list.files(system.file("tex", package = "rjdistill"),
  full.names = TRUE)
  sty_dest <- file.path(".", basename(sty_origin))
  copied <- file.copy(sty_origin, sty_dest)
     on.exit(unlink(sty_dest[copied]))
-    post_process(...)
+    post_process(metadata, utf8_input, output_file, clean, verbose)
   }
  # output_format(
  #   knitr = knitr_options(),