add ams

NAMESPACE

@@ -3,6 +3,7 @@
 export(acm_article)
 export(acs_article)
 export(aea_article)
+export(ams_article)
 export(ctex)
 export(ctex_template)
 export(elsevier_article)

R/ams_article.R

@@ -18,13 +18,11 @@
 #' @export
 ams_article <- function(...,
                         keep_tex = TRUE,
-                        md_extensions = c("-autolink_bare_uris"),
-                        fig_caption = TRUE){
+                        md_extensions = c("-autolink_bare_uris")){
   pdf_document_format(...,
                       keep_tex = keep_tex,
                       md_extensions = md_extensions,
                       format = "ams_article",
                       template = "template.tex",
-                      csl = "american-meteorological-society.csl",
-                      fig_caption = fig_caption)
+                      csl = "american-meteorological-society.csl")
 }

README.md

@@ -28,6 +28,8 @@ The **rticles** package provides a suite of custom [R Markdown](http://rmarkdown
 
 - [ACS](http://pubs.acs.org/) articles
 
+- [AMS](https://www.ametsoc.org/) articles
+
 - [Elsevier](https://www.elsevier.com) journal submissions
 
 - [AEA](https://www.aeaweb.org/journals/policies/templates) journal submissions

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

@@ -1,4 +1,4 @@
-\documentclass{ametsoc}
+\documentclass[$col$]{ametsoc}
 \usepackage{color}
 \usepackage{hyperref}
 \journal{$journal$}
@@ -21,34 +21,40 @@
 \bibpunct{(}{)}{;}{a}{}{,}
 \title{$title$}
 
-$if(authors.name)$
-\authors{$authors.name$}
+$if(author1)$
+\authors{$author1$
+$if(correspondingauthor)$
+\correspondingauthor{$author1$,$correspondingauthor$}
 $endif$
-
-$if(authors.correspondingauthor)$
-\correspondingauthor{$authors.correspondingauthor$}
 $endif$
-
-$if(authors.affiliation)$
-\affiliation{$authors.affiliation$}
+$if(author2)$
+and $author2$
+$if(currentaddress)$
+\thanks{$currentaddress$}}
+$endif$
+$endif$
+$if(affiliation)$
+\affiliation{$affiliation$}
 $endif$
-$if(authors.exaffiliation)$
-\extraaffil{$authors.exaffiliation$}
+$if(extraauthor)$
+    \extraauthor{Extra Author}
+$endif$
+$if(exaffiliation)$
+    \extraaffil{$exaffiliation$}
 $endif$
 
-$if(authors.email)$
+$if(email)$
 $email$
 $endif$
 
 $for(exauthors)$
-\extraauthor{$exauthors.name$}
+\extraauthor{$exauthors.name$
 $if(exauthors.correspondingauthor)$
-\correspondingauthor{$exauthors.correspondingauthor$}
-$endif$
-
-$if(exauthors.affiliation)$
-\affiliation{$exauthors.affiliation$}
+\correspondingauthor{$exauthors.name$,$exauthors.correspondingauthor$}
 $endif$
+$if(exauthors.currentaddress)$
+\thanks{$exauthors.currentaddress$}
+$endif$}
 $if(exauthors.exaffiliation)$
 \extraaffil{$exauthors.exaffiliation$}
 $endif$