fix: Support multiline @examplesIf again

r-lib · Aug 2, 2024 · 04ad8f2 · 04ad8f2
1 parent b94b42f
commit 04ad8f2
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 4 deletions.
diff --git a/R/rd-examples.R b/R/rd-examples.R
@@ -15,10 +15,12 @@ roxy_tag_parse.roxy_tag_examplesIf <- function(x) {
   )
 
   x$raw <- paste(
-    paste0("\\dontshow{if (", condition, ") withAutoprint(\\{ # examplesIf}"),
-    lines[-1],
-    "\\dontshow{\\}) # examplesIf}",
-    sep = "\n"
+    c(
+      paste0("\\dontshow{if (", condition, ") withAutoprint(\\{ # examplesIf}"),
+      lines[-1],
+      "\\dontshow{\\}) # examplesIf}"
+    ),
+    collapse = "\n"
   )
 
   tag_examples(x)

diff --git a/tests/testthat/_snaps/rd-examples.md b/tests/testthat/_snaps/rd-examples.md
@@ -32,6 +32,18 @@
     \dontshow{\}) # examplesIf}
     } 
 
+# @examplesIf, multi-line
+
+    \examples{
+    \dontshow{if (foo::bar()) withAutoprint(\{ # examplesIf}
+    maybe-run-this-code
+    \dontshow{\}) # examplesIf}
+    \dontshow{if (foobar()) withAutoprint(\{ # examplesIf}
+    and-this
+    and-that
+    \dontshow{\}) # examplesIf}
+    } 
+
 # @examplesIf warns about unparseable condition
 
     Code

diff --git a/tests/testthat/test-rd-examples.R b/tests/testthat/test-rd-examples.R
@@ -84,6 +84,20 @@ test_that("@examplesIf", {
   expect_snapshot_output(out$get_section("examples"))
 })
 
+test_that("@examplesIf, multi-line", {
+  out <- roc_proc_text(rd_roclet(), "
+    #' @name a
+    #' @title a
+    #' @examplesIf foo::bar()
+    #' maybe-run-this-code
+    #' @examplesIf foobar()
+    #' and-this
+    #' and-that
+    NULL")[[1]]
+
+  expect_snapshot_output(out$get_section("examples"))
+})
+
 test_that("@examplesIf warns about unparseable condition", {
   block <- "
     #' @name a