Combine multiple format tags (#1049)

Fixes #1015
r-lib · Mar 6, 2020 · 3d0c7f7 · 3d0c7f7
1 parent 4fb892f
commit 3d0c7f7
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -11,6 +11,8 @@
 * roxygen2 now adds hyperlinks to R6 methods in the PDF manual as well,
   (#1006).
 
+* Multiple `@format` tags are now combined (#1015).
+
 # roxygen2 7.0.2
 
 * `\example{}` escaping has been improved (again!) so that special escapes 

diff --git a/R/rd-markdown.R b/R/rd-markdown.R
@@ -19,7 +19,7 @@ roxy_tag_rd.roxy_tag_format <- function(x, base_path, env) {
 }
 #' @export
 format.rd_section_format <- function(x, ...) {
-  format_first(x, ...)
+  format_collapse(x, ...)
 }
 
 #' @export

diff --git a/tests/testthat/test-rd-markdown.R b/tests/testthat/test-rd-markdown.R
@@ -32,7 +32,6 @@ test_that("@format NULL suppresses default usage", {
     #' Title
     #'
     #' @format NULL
-    #'
     x <- list(a = 1, b = 2)")[[1]]
 
   expect_equal(out$get_value("format"), NULL)
@@ -42,10 +41,9 @@ test_that("@format not escaped", {
   out <- roc_proc_text(rd_roclet(), "
     #' Title
     #' @format %
-    #'
     x <- list(a = 1, b = 2)")[[1]]
 
   expect_equal(out$get_value("format"), "%")
-  expect_equal(out$get_rd("format"), "\\format{%}")
+  expect_equal(out$get_rd("format"), "\\format{\n%\n}")
 })