Mdpi update

R/article.R

@@ -366,11 +366,50 @@ jedm_article <- function(..., keep_tex = TRUE, citation_package = "natbib") {
 #'   from <https://www.mdpi.com/authors/latex>.
 #' @export
 #' @rdname article
-mdpi_article <- function(..., keep_tex = TRUE) {
-  pdf_document_format(
+#' @importFrom rmarkdown pandoc_variable_arg
+mdpi_article <- function(..., keep_tex = TRUE, latex_engine = "pdflatex") {
+
+
+  ## pre_processor checks if author metadata > 1 and uses moreauthors mdpi class
+  ## argument
+  pre_processor <- function(metadata,
+                            input_file,
+                            runtime,
+                            knit_meta,
+                            files_dir,
+                            output_dir) {
+
+    if(length(metadata$author) > 1) {
+       return(pandoc_variable_arg("multipleauthors", "moreauthors"))
+    } else {
+      return(pandoc_variable_arg("multipleauthors", "oneauthor"))
+    }
+  }
+
+  ## check location of mdpi.cls file (new versions are in subfolder)
+  ## to ensure compatibility with old versions
+  cls_loc <- if(file.exists("mdpi.cls")) "mdpi" else "Definitions/mdpi"
+  pandoc_args <- pandoc_variable_arg("cls", cls_loc)
+
+  ## check if latex engine is pdflatex or xelatex
+  if(!latex_engine %in% c("pdflatex", "xelatex")) {
+    stop("latex_engine must be one of 'pdflatex' or 'xelatex' when using the MDPI template.")
+  }
+  ## if latex engine is pdflatex, mdpi class argument must be pdftex
+  if(latex_engine == "pdflatex") {
+    pandoc_args <- c(pandoc_args,
+                     pandoc_variable_arg("pdftex", "pdftex"))
+  }
+
+  base <- pdf_document_format(
     "mdpi",
-    keep_tex = keep_tex, citation_package = "natbib", ...
+    keep_tex = keep_tex, citation_package = "natbib",
+    latex_engine = latex_engine,
+    pandoc_args = pandoc_args,
+    ...
   )
+  base$pre_processor <- pre_processor
+  base
 }
 
 #' @section `mnras_article`: Format for creating an Monthly Notices of

inst/rmarkdown/templates/mdpi/skeleton/chicago2.bst → inst/rmarkdown/templates/mdpi/skeleton/Definitions/chicago2.bst

@@ -266,8 +266,8 @@ FUNCTION {output.check.colon}
 FUNCTION {output.year.check}
 { year empty$
      { "empty year in " cite$ * warning$ }
-     { write$
-        ". " year * extra.label *
+     { add.period$ write$
+        " " year * extra.label *
        month empty$
           { }
           { ", " * month * }
@@ -775,7 +775,7 @@ FUNCTION {format.tr.number}
 
 FUNCTION {format.article.crossref}
 { "See"
-  "\citeN{" * crossref * "}" *
+  "\citep{" * crossref * "}" *
 }
 
 FUNCTION {format.crossref.editor}
@@ -821,12 +821,12 @@ FUNCTION {format.book.crossref}
     }
     { format.crossref.editor * }
   if$
-  " \citeN{" * crossref * "}" *
+  " \citep{" * crossref * "}" *
 }
 
 FUNCTION {format.incoll.inproc.crossref}
 { "See"
-  " \citeN{" * crossref * "}" *
+  " \citep{" * crossref * "}" *
 }
 
 % format.lab.names:
@@ -1010,17 +1010,10 @@ FUNCTION {output.bibitem}
 }
 
 %% For printing DOI numbers (it is a hyperlink but printed in black)
-FUNCTION {format.doi}
-{ doi empty$
-  { ""  }
-  {"\href{https://doi.org/" doi * "}" * }
-  if$
-}
-
 FUNCTION {formatfull.doi}
 { doi empty$
   { ""  }
-  {"doi:{\changeurlcolor{black}\href{https://doi.org/" doi * "}{\detokenize{" * doi * "}}}" * }
+  {"{\url{https://doi.org/" doi * "}}" * }
   if$
 }
 
@@ -1663,7 +1656,7 @@ FUNCTION {begin.bib}
     'skip$
     { preamble$ write$ newline$ }
   if$
-  "\begin{thebibliography}{}" write$ newline$
+  "\begin{thebibliography}{999}" write$ newline$
 }