diff --git a/R/utils-rd.R b/R/utils-rd.R
index be167d61..69dd967f 100644
--- 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
index 2538467d..8a10f26d 100644
--- 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", {