Add if to TWOTAGs (#1320)

Fixes #1097.
r-lib · Apr 6, 2022 · b5ec35e · b5ec35e
1 parent 0ecdcde
commit b5ec35e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/R/utils-rd.R b/R/utils-rd.R
@@ -93,7 +93,7 @@ make_as_character_rd <- function() {
     return(fn)
   }
 
-  body[[idx]][[3]] <- call_modify(body[[idx]][[3]], "\\href", "\\ifelse")
+  body[[idx]][[3]] <- call_modify(body[[idx]][[3]], "\\href", "\\ifelse", "\\if")
   body(fn) <- body
   fn
 }

diff --git a/tests/testthat/test-rd-inherit.R b/tests/testthat/test-rd-inherit.R
@@ -26,12 +26,10 @@ test_that("\\links are transformed", {
   expect_snapshot_output(out$get_section("param"))
 })
 
-test_that("href doesn't get extra parens", {
+test_that("markdown doesn't get get extra parens", {
   expect_equal(rd2text(parse_rd("\\href{a}{b}")), "\\href{a}{b}\n")
-})
-
-test_that("ifelse doesn't get extra parens", {
   expect_equal(rd2text(parse_rd("\\ifelse{a}{b}{c}")), "\\ifelse{a}{b}{c}\n")
+  expect_equal(rd2text(parse_rd("\\if{a}{b}")), "\\if{a}{b}\n")
 })
 
 test_that("relative links converted to absolute", {