cosmetic changes after #199

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rticles
 Type: Package
 Title: Article Formats for R Markdown
-Version: 0.6.3
+Version: 0.6.4
 Authors@R: c(
   person("JJ", "Allaire", role = "aut", email = "jj@rstudio.com"),
   person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),

R/agu_article.R

@@ -1,30 +1,22 @@
 #' American Geophysical Union (AGU) format
 #'
-#' Format for creating a American Geophysical Union (AGU) article.
-#' Adapted from
-#' \href{https://publications.agu.org/author-resource-center/checklists-and-templates/}{https://publications.agu.org/author-resource-center/checklists-and-templates/}.
-#'
+#' Format for creating a American Geophysical Union (AGU) article. Adapted from
+#' \url{https://publications.agu.org/author-resource-center/checklists-and-templates/}.
 #' @inheritParams rmarkdown::pdf_document
-#' @param ... Arguments to \code{rmarkdown::pdf_document}
-#'
-#' @return R Markdown output format to pass to \code{\link[rmarkdown:render]{render}}
-#'
+#' @param ... Arguments to \code{rmarkdown::pdf_document()}.
+#' @return An R Markdown output format.
 #' @examples
-#'
 #' \dontrun{
-#' library(rmarkdown)
-#' draft("MyArticle.Rmd", template = "agu_article", package = "rticles")
+#' rmarkdown::draft("MyArticle.Rmd", template = "agu_article", package = "rticles")
 #' }
-#'
 #' @export
-agu_article <- function(..., keep_tex = TRUE, citation_package = 'natbib',
-                        highlight = NULL, md_extensions = c("-autolink_bare_uris",
-                                                            "-auto_identifiers")) {
-  template <- find_resource("agu_article", "template.tex")
-  inherit_pdf_document(template = template,
-                              keep_tex = keep_tex,
-                              citation_package = citation_package,
-                              md_extensions = md_extensions,
-                              highlight = highlight,
-                              ...)
+agu_article <- function(
+  ..., keep_tex = TRUE, citation_package = 'natbib',
+  highlight = NULL, md_extensions = c("-autolink_bare_uris", "-auto_identifiers")
+) {
+  inherit_pdf_document(
+    template = find_resource("agu_article", "template.tex"), keep_tex = keep_tex,
+    citation_package = citation_package, md_extensions = md_extensions,
+    highlight = highlight, ...
+  )
 }