Try fixing SIM format (#594)

Author: cderv

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: rticles
 Title: Article Formats for R Markdown
-Version: 0.27.10
+Version: 0.27.11
 Authors@R: c(
     person("JJ", "Allaire", , "[email protected]", role = "aut"),
     person("Yihui", "Xie", , "[email protected]", role = "aut",

NEWS.md

@@ -36,6 +36,8 @@ supported by the `copernicus.cls`, and fix an issue where the section headers we
 
 ## MINOR CHANGES
 
+- Patch `WileyNDJ` template used in `sim_article()` to fix an issue with `etex` package not being useful anymore in recent LaTeX distributions (#593).
+
 - Update all templates to work with Pandoc 3.2.1 by adding the definition of new `\pandocbounded` command used by Pandoc's LaTeX writers (see more at https://github.com/jgm/pandoc/releases/tag/3.2.1 and https://github.com/jgm/pandoc/issues/9660) (#571, #576).
 
 # rticles 0.27

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

@@ -1,4 +1,4 @@
-\documentclass[AMA,STIX1COL$for(classoption)$,$classoption$$endfor$]{WileyNJD-v5}
+\documentclass[AMA,Times1COL$for(classoption)$,$classoption$$endfor$]{WileyNJD-v5}
 
 $if(longtable)$
 \usepackage{longtable}

inst/rmarkdown/templates/sim/skeleton/Fonts/Stix/STIX-Bold.otf

@@ -352,8 +352,11 @@
 \ProcessOptions
 \LoadClass[twoside,fleqn,onecolumn]{article}%
 
-\usepackage{etex}%
-\reserveinserts{28}% included etex package and \reserveinserts{...} to avoid no room for \newinserts, \newcounts or \newskips etc.
+\usepackage{etex}
+% Modification by as etex is not used anymore in modern LaTeX
+\@ifundefined{reserveinserts}{}{%
+  \reserveinserts{28}%
+}
 \RequirePackage{graphicx,multicol}%
 \RequirePackage{multirow}%
 \RequirePackage{cuted}%

inst/rmarkdown/templates/sim/skeleton/Fonts/Stix/STIX-BoldItalic.otf

@@ -10,8 +10,7 @@ test_format <- function(name, output_options = NULL, skip = NULL) {
   # work in a temp directory
   dir <- tempfile()
   dir.create(dir)
-  oldwd <- setwd(dir)
-  on.exit(setwd(oldwd), add = TRUE)
+  withr::local_dir(dir)
 
   # create a draft of the format
   testdoc <- paste0(name, "_article", ".Rmd")
@@ -24,7 +23,7 @@ test_format <- function(name, output_options = NULL, skip = NULL) {
     "Rendering the ", name, " format...",
     if (!is.null(output_options)) " (with output options)"
   )
-  output_file <- rmarkdown::render(testdoc, output_options = output_options, quiet = TRUE)
+  output_file <- rmarkdown::render(testdoc, output_options = output_options, quiet = !interactive())
   assert(paste(name, "format works"), {
     file.exists(output_file)
   })
@@ -77,7 +76,7 @@ test_format("rjournal")
 test_format("rsos")
 test_format("rss")
 test_format("sage")
-test_format("sim", skip = TRUE) # sim format currently broken
+test_format("sim")
 test_format("springer", skip = !rmarkdown::pandoc_available("2.11.4"))
 test_format("tf", output_options = list(reference_style = "CAD"))
 test_format("tf", output_options = list(reference_style = "APA"))