Add support to all bibliography styles required by Taylor & Francis journals

R/article.R

@@ -556,10 +556,69 @@ springer_article <- function(..., keep_tex = TRUE,  citation_package = "natbib",
 #' \samp{https://www.tandf.co.uk/journals/authors/InteractCADLaTeX.zip}.
 #' @export
 #' @rdname article
-tf_article <- function(..., keep_tex = TRUE, citation_package = "natbib") {
+tf_article <- function(..., keep_tex = TRUE, citation_package = "natbib",
+                       biblio_style = "CAD", pandoc_args = NULL) {
+  styles <- list(
+    APA = list(
+      bst = "apacite",
+      cmd = "\\usepackage[natbibapa]{apacite}
+\\setlength\\bibhang{12pt}
+\\renewcommand\\bibliographytypesize{\\fontsize{10}{12}\\selectfont}"
+    ),
+    CAD = list(
+      bst = "tfcad",
+      cmd = "\\usepackage{natbib}
+\\bibpunct[, ]{(}{)}{;}{a}{}{,}"
+    ),
+    NLM = list(
+      bst = "tfnlm",
+      cmd = "\\usepackage[numbers,sort&compress]{natbib}
+\\makeatletter
+\\def\\NAT@def@citea{\\def\\@citea{\\NAT@separator}}
+\\makeatother
+\\bibpunct[, ]{[}{]}{,}{n}{,}{,}
+\\renewcommand\\bibfont{\\fontsize{10}{12}\\selectfont}"
+    ),
+    TFP = list(
+      bst = "tfp",
+      cmd = "\\usepackage[numbers,sort&compress,merge]{natbib}
+\\bibpunct[, ]{(}{)}{,}{n}{,}{,}
+\\renewcommand\\bibfont{\\fontsize{10}{12}\\selectfont}
+\\renewcommand\\citenumfont[1]{\\textit{#1}}
+\\renewcommand\\bibnumfmt[1]{(#1)}"
+    ),
+    TFQ = list(
+      bst = "tfq",
+      cmd = "\\usepackage[numbers,sort&compress]{natbib}
+\\bibpunct[, ]{[}{]}{,}{n}{,}{,}
+\\renewcommand\\bibfont{\\fontsize{10}{12}\\selectfont}"
+    ),
+    TFS = list(
+      bst = "tfs",
+      cmd = "\\usepackage[numbers,sort&compress]{natbib}
+\\bibpunct[, ]{[}{]}{,}{n}{,}{,}
+\\renewcommand\\bibfont{\\fontsize{10}{12}\\selectfont}"
+    )
+  )
+  if (! biblio_style %in% names(styles))
+    stop(
+      paste(
+        "Invalid biblio_style in Taylor and Francis article. Allowed values are:",
+        paste(names(styles), collapse = ", ")
+      )
+    )
+  sty <- styles[[biblio_style]]
+  pandoc_args <- c(
+    pandoc_args,
+    rmarkdown::pandoc_variable_arg("bst-name", sty$bst),
+    rmarkdown::pandoc_variable_arg("biblio-commands", sty$cmd)
+  )
   pdf_document_format(
     "tf",
-    keep_tex = keep_tex, citation_package = citation_package, ...
+    keep_tex = keep_tex,
+    citation_package = citation_package,
+    pandoc_args = pandoc_args,
+    ...
   )
 }
 

inst/rmarkdown/templates/tf/resources/template.tex

@@ -1,15 +1,10 @@
-% interactcadsample.tex
-% v1.04 - May 2023
-
 \documentclass[$for(classoption)$$classoption$$sep$,$endfor$]{interact}
 
 \usepackage{epstopdf}% To incorporate .eps illustrations using PDFLaTeX, etc.
 \usepackage{subfigure}% Support for small, `sub' figures and tables
 %\usepackage[nolists,tablesfirst]{endfloat}% To `separate' figures and tables from text if required
 
-\usepackage{natbib}% Citation support using natbib.sty
-\bibpunct[, ]{(}{)}{;}{a}{}{,}% Citation support using natbib.sty
-\renewcommand\bibfont{\fontsize{10}{12}\selectfont}% Bibliography support using natbib.sty
+$biblio-commands$
 
 \theoremstyle{plain}% Theorem-like structures provided by amsthm.sty
 \newtheorem{theorem}{Theorem}[section]
@@ -202,7 +197,7 @@
 $body$
 
 $if(bibliography)$
-\bibliographystyle{$if(biblio-style)$$biblio-style$$else$tfcad$endif$}
+\bibliographystyle{$bst-name$}
 \bibliography{$bibliography$}
 $endif$