fix: Support multiline @examplesIf again (#1641)

Author: krlmlr

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)

tests/testthat/_snaps/rd-examples.md

@@ -29,6 +29,7 @@
     \dontshow{\}) # examplesIf}
     \dontshow{if (foobar()) withAutoprint(\{ # examplesIf}
     and-this
+    and-that
     \dontshow{\}) # examplesIf}
     } 
 

tests/testthat/test-rd-examples.R

@@ -79,6 +79,7 @@ test_that("@examplesIf", {
     #' maybe-run-this-code
     #' @examplesIf foobar()
     #' and-this
+    #' and-that
     NULL")[[1]]
 
   expect_snapshot_output(out$get_section("examples"))